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ABSTRACT 


The Nuclear Weapons Management System combines the strengths 
of an expert system with the flexibility of a database management 
system to assist the Weapons Officer, Security Officer, and the 
Personnel Reliability Program Officer in the performance of 
administrative duties associated with the nuclear weapons programs 
in the United States Navy. This thesis examines the need for, and 
ultimately the design of, a system that will assist the Security 
Officer in administrative duties associated with the Shipboard Self 
Defense Force. This system, designed and coded utilizing dBASE IV, 
can be implemented as a stand alone system. Furthermore, it 
interfaces with the expert system submodule that handles the PRP 


screening process. 
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I. INTRODUCTION 


A. BACKGROUND 

The purpose of this thesis is to examine the programs, 
identify the requirements, and create an automated system to 
assist fleet personnel in the execution of administrative 
duties mandated by the Nuclear Weapons Management Programs 
and Shipboard Security in the U.S. Navy. The major focus of 
this thesis is to develop a PC-based application to automate 
an otherwise time consuming, manpower intensive, laborious 
process required aboard every commissioned United States 


Naval Warship. 


B. RESEARCH QUESTIONS 

The following questions will be answered in the research, 
design and ultimate development of the thesis: 

1. What areas of nuclear weapons administration are 
appropriate for computer systems to aid in decision making, 
as well as information evaluation and tracking? 

2. Once specific areas are identified, what types of 
computer systems and software application packages are 
Suitable, readily available, and most importantly 


appropriate for the needs of this particular problem? 


3. What is the ideal design of the software package that 
will readily support the organization of all training, 
qualification, and administrative requirements? 

4. How will the database management system and the expert 
system modules integrate to support the Nuclear Weapons 


Management System? 


C. OBJECTIVES 

The objectives of this thesis are as follows: 

1. Develop a database system that will enable fleet 
personnel to optimize resources in tracking personnel 
security data, and perform such administrative tasks as file 
manipulation, report generation, and qualification update 
and review. 

2. Design the database system such that it can be used 
not only as a sub-module for the Nuclear Weapons Management 
System [Ref. 1], but in a stand alone, non-nuclear 
application as well. 

3. Provide discussions on what the Personnel Reliability 
Program (PRP) and the Ship's Self Defense Force (SSDF) are, 
and how software packages can aid the fleet in the many 
administrative tasks that are required to ensure safe, and 
secure accomplishment of the Navy's mission. 

4. Provide a discussion on the interoperability of the 
Nuclear Weapons Management System (Ref. 1], and the Ship's 


Security Force System. The design and implementation 





portions of this thesis will use two software packages 
(dBASE IV and VP-Expert) and the integration of the two 


packages to support a combined system. 


D. SCOPE, LIMITATIONS, and ASSUMPTIONS 
There are four areas of the NWMS that are of major 
concern to any command involved with Nuclear Weapons 
Management Programs in the Navy. These areas ao 
— Personnel Reliability 


- Technical Operations 


Training 


security 

Personnel Reliability is the thrust of another thesis being 
conducted (NUCLEAR WEAPONS MANAGEMENT SYSTEM Ref. 1); This 
thesis will be focusing on the security issue. 

Moreover, this thesis will concentrate mainly ona 
database system developed to aid fleet users in the 
manipulation of information in conjunction with the Nuclear 
Weapons Management System (Ref. 1], and the Security Force 
programs. The system is designed to operate on IBM 
compatible microcomputers that are prevalent in the fleet 
today. To operate the Security Force System, dBASE IV will 
be required to be in place on the shipboard microcomputer ; 
to operate the combination of the Nuclear Weapons Management 
System (NWMS) and the Ship's Security Force System (SSFS), 


both dBASE IV and VP-Expert must be in place on the 


microcomputer. The above software will operate on an 8088 XT 
microcomputer; however it is recommended that the system be 
run on at least a 80286 AT system because of enhanced speed 
and computing power. The 80286-based Zenith 248 computers 
currently installed on ships in the fleet are adequate for 


the proposed application. 


E. SUMMARY OF FINDINGS 

As a result of the research conducted, published 
inspection results, and informal interviews with a variety 
of fleet personnel, the following issues were found to be 
relevant: 

1. There exists a real need, fleet wide, for a system to 
assist in the administrative duties involved in Nuclear 
Safety and Shipboard Security programs that accompany not 
only Nuclear capable ships, but also non-nuclear capable 
ships. 

2. dBASE III+ and dBASE IV are readily available in the 
fleet today, they are compatible with the software utilized 
in the Nuclear Weapons Management System (Ref. 1], and are 
flexible enough to allow adaptation to a variety of command 
applications. Consequently, they are a good choice in 
software packages to assist in fulfilling general 
administrative requirements. 

3. An automated system consisting of dBASE IV and VP- 


Expert (Chapter II identifies the need for 2 software 





packages) can be designed and built to assist the fleet in 
management of Nuclear Weapons Safety and Security programs, 
and as such can be implemented on existing fleet hardware. 
4. The automated subsystem consisting of dBASE IV 
software can be developed in such a way as to be functional 
in a stand alone, non-nuclear application for SSDF, and can 


also be implemented on existing fleet hardware. 


II. GENERAL DESCRIPTION OF THE NUCLEAR WEAPONS MANAGEMENT 
SYSTEM 
A. BRIEF OVERVIEW OF THE PERSONNEL RELIABILITY PROGRAM 
Nuclear weapons management is by far one of the most 

serious and important tasks in the U.S. Navy today. Safety 
concerns and public awareness demand that this system be 
accurate, current, and reliable at all times. The 
responsibility for these programs resides with every afloat 
command in the United States Navy, and virtually all shore 
commands. It is for these reasons that strong management 
techniques must be applied, and rigid inspections be 
performed to monitor compliance. 

The Chief of Naval Operations, through OPNAV 
Instructions, publishes guidelines for the Navy to utilize 
for the programs discussed. Weapons Training Groups on both 
East and West Coasts are tasked with training the fleet to 
ensure compliance with current directives as well as 
conducting inspections on Nuclear capable ships and 
stations. Sanitized inspection results are published 
periodically as WPNTRAGRU notices. Close scrutiny of 
inspection results clearly demonstrates the need for 
administrative improvements which can be easily effected 
through computerization of all routine administrative tasks. 


As with the PRP screening function, off the shelf software 





packages and existing hardware can easily facilitate the 
rapid prototyping of a system that can easily automate all 
standardized administrative functions. 

The Personnel Reliability Program (PRP) was established 
to ensure that personnel who work with nuclear weapons, 
either directly or indirectly, are trustworthy and reliable. 
This of course is not a process that can be established with 
a single entry level screen. The importance of the nuclear 
weapons program, and the potential for accidental or willful 
discharge of nuclear weapons, demands that the screening of 
individuals be accomplished on a recurring basis. This 
process involves not only entry level, in-depth 
investigations and periodic reviews of personnel records, 
but a routine systematic review and analysis of personnel 
already in the PRP system. 

During the process of initial screening, there are many 
questions that must be answered in determining a candidate's 
qualifications for the PRP. The many iterations of questions 
and answers lend themselves well to the use of an expert 
system. This system as indicated earlier is the basis of 
another thesis [Ref. 1] in which the Ship's Security Force 
System can be utilized as a sub-module or subsystem. The 
myriad of requirements that the PRP screening process 
includes are: security clearances for the position held, 
physical qualifications, mental state, legal and military 


law infractions, and personal beliefs. These items are 


covered much more in depth in Ref. 1; however, since this 
thesis covers only PRP in relation to a database subsystem, 
further discussion of the use of expert system technology 
can be found in [Ref. 1]. Database systems are currently 
utilized in the fleet by many department heads and division 
officers to track administrative items on department and 
division personnel. It is therefore not only a suitable 
alternative to use, but a proven solution as well. The fact 
that dBASE IV is readily available in the fleet clearly 
makes it the system of choice for this application because 
the training curve for utilization should not be as high as 


other less familiar software packages would be. 


B. BRIEF OVERVIEW OF THE SHIP'S SELF DEFENSE FORCE 

All ships in the fleet today, whether nuclear or non- 
nuclear capable, have a Self Defense Force. It is with this 
in mind that the system designed for this thesis be able to 
function as both a subsystem and a stand alone system. The 
Ship's Self Defense Force (SSDF) is designed to defend the 
ship from a hostile boarding or intrusion. The force 
consists of four elements, the Security Alert Team (SAT), 
the Backup Alert Force (BAF), the Reserve Force (RF), and 
the Augmentation Force (AF). 

The Security Alert Team is defined as two or more 
security force members, in addition to sentries at 


established posts, capable of responding immediately to any 





physical security irregularity [Ref. 2]. Current directives 
require the Security Alert Team to be capable of responding 
within five minutes from the sound of the alarm. 

The Backup Alert Force is defined as three or more 
designated personnel; armed, equipped, trained, and capable 
of providing assistance to the Security Alert Team within 
ten minutes [Ref. 2]. The main purpose of the BAF is to 
support the SAT. 

The Reserve Force is defined as ten or more designated 
personnel; armed, equipped, trained and capable of 
responding in support of the on-duty security force 
personnel within fifteen minutes [Ref. 2]. The main purpose 
of the Reserve Force is to support both the SAT and the BAF. 

The Augmentation Force is defined as a group of personnel 
organized and designated in established plans by fleet and 
area commanders to best facilitate and complement individual 
type ship requirements [Ref. 2]. Generally, the Augmentation 
Force is comprised of the remainder of the ship's crew that 
is aboard at the time. This further stresses the importance 
of the requirement that all hands be familiarized in the use 
of firearms and security procedures. 

The definitions alone highlight several of the items that 
must be recorded and tracked to ensure compliance with 
directives as well as to ensure safety. Each member of the 
security force is required to be qualified and trained on 


the weapon or weapons that he or she may have to use during 


a security alert. In particular, each of the security once 
members must be qualified on four weapons: the .45 caliber 
pistol, the 9mm pistol, the M14 or M16 semi automatic rifle, 
and the 12 gauge pump shotgun. These qualifications are 
required to be updated once per year, with the procedures 
ranging from training lectures to actual live target fire at 
shore based ranges. Qualifications and training for the 


security force as a whole exist in the form of required 





schools and drill scenarios. Each member of the ship's 
security force is required to attend a shore based school on 
shipboard security tactics. Furthermore, each duty section 
aboard ship is required by current directives to be drilled 
once per week. These drills consist of realistic scenarios 
that must be responded to and trained for in order to ensure 
maximum readiness and peak proficiency at all times. Close 
attention must paid in order to ensure that each member has 
been given proper training to safely handle the appropriate 
weapons. Requirements for annual qualifications on small 
arms weapons, training, military instruction on weapons 
handling, use of deadly force, and other security tactics 
are all examples of security management items that must be 
constantly reviewed and updated to ensure not only 
compliance with regulations, but safety and reliability as 
well. Documenting the satisfactory completion of these 
requirements is related more to book keeping and time line 


functions; therefore it is well suited to computer 


10 


application. Another important aspect is that these 
directives do not specify which divisions and/or departments 
will provide the requisite people. Consequently, the 
Security Force is often made up of personnel from all 
departments and divisions. This complicates the 
administrative burden with regard to planning for 
replacement personnel when security force members rotate off 
the ship, and arranging qualification certification. These 
functions are nearly impossible without some type of 
automated assistance. 

On ships that are nuclear capable, these problems are 
exacerbated by the requirement for personnel who perform 
security duties in proximity of nuclear weapons to be PRP 
qualified. The SAT and BAF personnel must be screened into 
the PRP, since they are the first and second teams to 
respond, and may have access to nuclear weapons on ships. 
The other security force members, although not required to 
be PRP screened, must be continually monitored for the same 
qualifications and training required of PRP security force 


personnel. 


C. COMPUTER AIDS SUITED FOR MANAGEMENT OF PRP AND SSDF 
From the research that was conducted on PRP screening 
[Ref 1] it became readily apparent that an expert system was 


the best option available. The design of the PRP screening 
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process is essentially a series of well-defined questions 
and answers. There are a variety of requirements that a 
person must meet to be screened into the PRP. Some of these 
requirements are concerned with physical condition, 
substance abuse, military and civil law infractions and 
overall mental state. These requirements are complex. 
Depending upon the answers to specific questions, they can 
lead to further questioning for clarification and/or 
different degrees of qualification. This rule based 
qualification procedure corresponds directly with optimal 
utilization of an expert system. Used heavily in the medical 
and engineering fields, an expert system is designed to ask 
the user a set of questions and based upon the user's 
answers to those questions and the rules that are stored 
within the expert system, the expert system will provide the 
user with answers. These answers can be constructed ina 
Simple "yes/no" format to something more elaborate as 
providing lengthy answers with referenced proof materials. 
This application is suitable for the PRP screening process 
because it will ask preselected questions of the person 
doing the screening process, and will provide advice on the 
candidate's qualifications for the PRP. It also will 
reference current directives and instructions when a 
negative response for entry into PRP is warranted. 

Once the screening process is completed, the need still 


exists to store and, perhaps at a later date, manipulate the 
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data to meet the needs of the user. Although VP-Expert, as 
an inferencing engine, is a very good application for the 
screening process, it does not offer database manipulation 
and storage facilities. It does however interact well with 
dBASE IV, which is another software package that is designed 
primarily for this purpose. A database system, such as dBASE 
IV, is designed to accomplish many types of file 
manipulation, form generation, report generation, as well as 
querying information and even generation of labels and code. 
These are the factors important to the user when tracking 
this information, whether used in conjunction with PRP or 


not. 


IES 


III. DESCRIPTION OF THE NWMS / SSFS SUBSYSTEM 


A. COMBINED SYSTEM OVERVIEW 

In this chapter, the Nuclear Weapons Management System is 
discussed. It is important to realize that this system, 
designed in conjunction with two theses, contains several 
parts. Three of these parts are currently 
completed in design, and the remainder of the parts or sub- 
modules, will be discussed in the next chapter of this 
thesis under the heading of future expansion possibilities. 

The Nuclear Weapons Management System, in its current 
state, consists of a database, an expert system, and two 
database applications. The expert system module employed is 
utilized to screen potential PRP candidates. Once this 
screening process is completed, an option to enter a 
successful candidate into the PRP database is given, and 
upon acceptance of the option the information on the 
candidate is then passed on and stored into the database. 
This information can be further manipulated through one of 
two applications in the form of reports, entry lists, 
qualification lists, general information, edit functions and 
techniques. A diagram of the Nuclear Weapons Management 
System and relational software packages is provided below. 


The Nuclear Weapons Management System: 
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Once the NWMS software has been loaded onto the 
microcomputer that has dBASE IV and VP-Expert installed, the 
paths properly set and execution file entered (these 
instructions are provided in the users manual appendix), the 
user will immediately be offered a menu to select the option 
of entering the PRP screening process, the PRP database, the 
Security Force database, or returning the computer to the 
DOS environment. The PRP screening option has been coded 
such that when selected, the user is automatically directed 
into the VP-Expert software environment. At this point, 
instructions are given to select the PRP screening function, 
and when completed, the user is presented with the first of 
many options and questions that exist in the expert systém's 


knowledge base. The information programmed into the 
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knowledge base of the expert system has been extracted from 
current directives as to the fitness and qualifying factors 
required for PRP candidacy. This information in conju im 
with VP-Expert's rule based system of interpretation will 
then formulate the system's recommendations as to whether or 
not the information entered complies with current 
directives, and hence represents a viable candidate for the 
PRP. If the system returns an unfavorable decision based on 
the information reported, specific disqualifying references 
are presented to the user for either correction or 
justification. 

The second option in the NWMS menu is the Ship's Security 
Force Database Application. Upon selection of this option, 
the user is mapped through dBASE IV, directly into the 
application. A sign on banner is presented that notifies the 
user that he or she is now in the Security Force 
application. To proceed, the enter button is depressed to 
reveal a main menu that provides a variety of options from 
reading fleet requirements on security, to updating and 
printing rosters, and drill reports. This application will 
be discussed in further detail in part B of this chapter of 
the thesis. 

The third option in the NWMS menu is the PRP Database 
Application. This option is coded such that once again the 
user is mapped through the dBASE IV software and directly 


into the PRP Database Application. A sign on Danner is again 
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presented to notify the user that he or she is now in the 
PRP Database Application, and with a depression of the enter 
button the user is presented with a main menu that consists 
of four options. The options herein include View PRP Roster, 
Edit PRP Roster, Print PRP Roster, and Exit. A sample menu 


diagram is provided below. 


VIEW ROSTER EDIT ROSTER PRINT ROSTER EXIT 


The first option, View PRP Roster, allows the user to 
quickly review all of the members of the PRP in alphabetical 
erder. This option is very helpful to the PRP Officer 
because it allows quick access for checking any number of 
specific personnel in either controlled or uncontrolled 
billets within the PRP. It also assists the PRP Officer in 
areas such as continual update and rescreening of personnel. 
The layout or format of the screen presentation is tabular 
to provide quick, easy viewing. This option is accomplished 
in dBASE IV by programming a view option within the software 
to retrieve the information from the database file 
(mem info.dbf). 

The second option on the menu, Edit PRP Roster, allows 
the PRP Officer to not only access the information, but edit 


it as well. This is an important option because it allows 
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errors that exist in record keeping to be corrected seqcuss, 
and without delay. With the amount of work that must be 
accomplished, and the limited time available, typographical 
errors seem to abound in the fleet. This option is also much 
better designed for a dBASE application, than for that of 
the expert system. Errors are much more prone to be 
discovered after the initial screening process is completed, 
when the data is being reviewed, and this option exists to 
correct them. This Edit option is accomplished within the 
software by allowing the user to append the database file 
(mem info.dbf). 

The third option on the menu, Print PRP Roster, allows 
the PRP Officer to maintain a hard copy report of the PRP. 
This is extremely important aboard ship with unexpected 
power losses, power fluctuations, and maintenance, the 
possibilities of losing important documentation at least 
temporarily are very real. This option is also beneficial to 
the PRP officer because it allows quick access to hard copy 
reports or data that may be required by the chain of 
command. It seems at times that in the shipboard 
environment, seeing is believing, and coming to the PRP 
office, or PRP officer's stateroom to view a report that is 
stored on computer is not a viable option. This menu option 
is accomplished in the software by designing a report format 


within dBASE IV, and then calling that report to be printed. 
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This report also retrieves it's data from the database file ' 
(mem info.dbf). 

The fourth and final option on the menu, Exit, simply 
returns the user back to the NWMS main menu. This is 
accomplished in the code by simply directing a path from the 
dBASE IV software package to DOS batch file that makes up 
the NWMS menu. 

The final option in the NWMS menu is that of returning to 
the DOS function. This option is provided more for the 
casual computer user than anything else, because in reality, 
the batch file that makes up the NWMS main menu exists in 
DOS. It seems redundant to offer this option to the 
experienced user who will probably know that he or she is in 
DOS anyway; however, the design of the system must take into 
account the varying degree of computer literacy in the 


fleet. 


B. DESCRIPTION OF THE SECURITY FORCE SYSTEM 

The Ship's Security Force System is a menu driven, dBASE 
IV application that provides the user with many data 
manipulation techniques and functions. It is menu driven so 
that as the user progresses, menus are provided until the 
user either reaches a level to access data or exits the 
program. This application can be used in conjunction with 


the NWMS as a subsystem, as previously described, or as a 
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stand alone Security Force System. To use this application 
as a stand alone entity, it is important to realize that the 
PRP screening functions discussed earlier cannot be 
accomplished in this application. The file and data 
manipulation of Security Force, as well as PRP personnel can 
be accomplished and will be discussed in depth in this 
chapter. 

In the user's manual, instructions on how to load the 
dBASE software security applications in a stand alone mode 
are provided. Once these instructions are implemented, the 
user will be presented with a sign on banner that assures 
them that they are in the Shipboard Security Force System. 
By depressing the enter key they are presented with the main 
horizontal bar menu (MEMMAIN) to begin their selection of 


options. A sample menu diagram is provided below. 


| SF REQS SF ROSTER SF DRILLS PRINT SF QUALS UTILS EXIT 


1. Requirements Option Menu 
The first option available to the user from the main menu 
is entitled SF REQS. This acronym is defined as Security 
Force Requirements. The requirements that are being 
discussed are those requirements obtained from current 


directives that pertain to security force matters and will 
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be introduced in this chapter. A layered menu diagram is 


provided below. 


SF REQS 


VIEW SPECIFIC REQ || EDIT REQUIREMENTS PRINT REQS 


| | 
SAT REQS BAF REQS  RESFOR REQS AUGFOR REQS DRILL REQS 





When the SF REQS option is chosen, the user will be 
presented with an additional pop up menu of selections 
(REQSSF). This pop up menu of additional selections 
includes the abilities to either view, edit or print a 
requirement. 

A sample menu diagram is provided below. 


ENENESSPECIFIC REQUIREMENT -» 
EDIT REQUIREMENTS m. 


PRINT REQUIREMENTS -> 





The three arrows included in the pop up menu above are 
used as pointers to let the user know that there are 


additional menu options layered below each option as shown. 
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a. View Specific Requirement 
As in the case above, the first option, VIEW SPECIFIC 
REQUIREMENT, presents the user with a final horizontal bar 
menu (REQSALL) that allows the user to choose which 
requirement he or she would like to view. A sample menu 


diagram is provided below. 
SAT REQS BAF REQS RESFOR REQS AUGFOR REQS DRILL REQS 


The above options, when chosen will provide the user with 
specific requirements as set forth in OPNAV and Weapons 
Training Group instructions. The selections are acronyms for 
the following: SAT REQS - Security Alert Team requirements, 
BAF REQS - Backup Alert Force requirements, RESFOR REQS - 
Reserve Force requirements, AUGFOR REQS - Augmentation Force 
requirements, and DRILL REQS - those requirements that 
define periodicity of drilling the security force. These 
options are accomplished by selecting the internal software 
options to retrieve the information from the database file 
(reqs.dbf). These files had to constructed in the form of 
memo fields in order to manipulate text instead of data. 
b. Edit Requirement 

The second option on the REQSSF pop up menu, EDIT 

REQUIREMENTS, allows the user to update the individual 


requirements as the changes are received from the chain of 
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command. When this menu is selected, the user is once again 
presented with a horizontal bar menu (EDREQS) that is 
identical to the horizontal bar menu (REQSALL) previously 
discussed. The major difference between the two options is 
that the user is allowed to make changes to the text in the 
option area selected. This is accomplished much in the same 
way as the view option in that it retrieves the text from 
the database file, but then differs in allowing changes to 
be made by calling up a previously designed form. 
c. Print Requirement 

The third and final option of the REOSSF pop up menu, 
PRINT REQS, allows the user to print the requirement of 
choice. Once again the user is presented with an additional 
horizontal bar menu (PRNTREQS) and can choose which specific 
requirement he or she would like to print. The PRNTREQS menu 
is identical to the two previous menus (REQSALL, EDREQS) and 
the structure of this function is very similar. The software 
retrieves the text from the database file and sends the 
print instruction to the printer. 

2. Roster Menu 

Returning our attention to the main menu of the Security 
Force System, we will discuss the next option, SF ROSTER. 
This option, an acronym for Security Force Roster, allows 
the user to manipulate data on personnel included in the 


security force. A layered menu diagram is provided below. 
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SF ROSTER 


PRINT SECURITY 


Wel EN SECURISMØKOSTE EDIT SECURTIY FOSTE 


With its selection, the user is presented with another pop 


up menu (ROSTER), which will allow the user to view, update, 
or print the security force roster. A sample menu diagram is 


provided below. 


VBEW- SEPURITY ROSTER 
UPDATE SECURITY ROSTER 


PRINT SECURIP ROSTER 





a. View Security Roster 
Selection of the first option will allow the user to view 
a list of all Security Force personnel in alphabetical 
order. This option will allow the Security Officer or 
Weapons Officer a much needed, quick access to pertinent 
data (e.g. how many people are currently on the security 
force, when did specific personnel report aboard, and more 
importantly when are they going to detach from the command). 
All of these items are convenience features that support 
optimal management of Security Force Administration. This 


option, VIEW SECURITY ROSTER, is accomplished by retrieving 
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the data directly from the database file in which it is 
stored (mem info.dbf). 
b. Update Security Roster 

Selection of the second option, UPDATE SECURITY ROSTER, 
allows the user to append or correct the data that is stored 
in the dbf file. This is accomplished by retrieving the data 
from the dbf file, and allowing the changes to be made 
through a previously designed form in the dBASE IV software. 
The benefit of this option is that the Security Officer does 
not need to reenter all the data on an individual, he or 
she can make only those changes necessary. 

c. Print Security Roster 

Selection of the third and final option for this pop up 
menu, PRINT SECURITY ROSTER, will allow the user to print a 
list of all members of the Security Force. This is a 
valuable tool with respect to requirements for hard copy 
data in the fleet. Accomplishment of this option is carried 
out by mapping the internal dBASE software through a 
previously prepared report format, and sending the print 
instructions to the printer. 

3. Drills Menu 

Once again returning to our main menu (MEMMAIN) we 

proceed to the third option, SF DRILLS. This option allows 


the user to view, edit or print Security Force drills that 
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current directives require tro ne accomplished and recorded. 


A layered menu diagram is provided below. 


SF DRILLS 


VIEW DRILLS EDIT DRILLS PRINT DRILLS 


Upon selection of this option, the user is presented with 
another pop up menu (DRILLS). A sample menu diagram is 


provided below. 


x= a 
VIEW DRILLS | 
EDIT DRILLS 

PRINT DRILLS | 








a. View Drills 

Selection of the first of these options, VIEW DRILLS, 
will allow the user to view the historical data of security 
force drills that have been entered into the database. This 
option presents a valuable tool for the Security Officer in 
which to study trends in drilling techniques, along with 
redundancy of specific scenarios in drilling. It is not wise 
to drill the security force on solely one or two drill 


scenarios or even in one or two areas of the ship. With this 
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feature implemented in the Security Force System, redundancy 
of training can be easily avoided. This feature also allows 
the Security Officer to review historical security alert 
drill reports and to study actual security alerts. These 
actual alerts are also entered in this system and are 
commonly utilized in the fleet as training tools. This 
option is accomplished within the system software by mapping 
this menu selection to the database file (drills.dbf). 
b. Edit Drills 

The second option in the DRILLS pop up menu, EDIT DRILLS, 
allows the user the ability to either edit a past drill, or 
add a new drill. This option is necessary for the Security 
Officer and actually the duty Weapons Officer when the daily 
or weekly drills are completed. The selection on the menu is 
made, and a form is presented to the user in which specific 
detailed information is filled in. This information now 
becomes a part of the chronological history of the DRILLS 
database. This action is accomplished by mapping the 
internal dBASE IV software through a form and into the 
database file (drills.dbf). If the user intends to edit the 
information on a specific drill, he simply selects this 
option, finds the drill he wishes to edit, and does so. The 


changes are then saved and written to the database file. 
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c. Print Bsilis 

The third and final option on the DRILLS pop up menu, 
PRINT DRILLS, is provided so that the user may again have 
hard copy data for physical filing, or requirements from up 
the chain of command. This action is accomplished in the 
internal software, by mapping the option to the database 
file (drills.dbf) and sending a message to the printer to 
print the files. Currently this option is designed to print 
all files located in the database, i.e. all drills that have 
been logged into the system will print out in a convenient 
tabular format. The recommendation here is that the Security 
Officer keep only the drills for the current year in the 
database, all others can be archived. All drill information 
should be saved for training and reference, but within the 
system itself a year's worth at a time is sufficient. 

4. Print Security Force 

Returning to the main menu of the Security Force System, 
we will discuss the selection of the fourth option, PRINT 
SF. This is an acronym for Print Security Force. This option 
is an extra tool added to allow the user a more convenient 
access to the print command. A layered menu diagram is 


provided below. 
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| PRINT SF 






| 
REQRMNT SF ROSTER | SF DRILS XOUALS«-45||XPIRED QUAL 








SATREQS BAFREQS RESFOREQS AUGFOREQS DRILLREQS 


SHOTGUN 45CAL 9MM M14/16 


Upon selection of this option, the user is presented with 
another pop up menu (PRINTSF) that will allow the user to 
print requirements, rosters, drills, a list of personnel who 
are within 45 days of small arms qualification expiration, 
and a list of personnel who's small arms qualifications have 


already expired. A sample menu diagram is provided below. 





‘PRINT REQUIREMENTS | 
PRINT ROSTER | 
PRINT DRILL REPORT | 
PRINT XQUALS <=45 => | 
PRINT EXPIRED QUALS ->| 
















a. Print Requirements 
The first of these options in the PRINTSF pop up menu, 


PRINT REQUIREMENTS, allows the user to print specific 
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requirements as it did with the same option in the REQSSF 
pop up menu we previously reviewed. The arrow, once again, 
indicates to the user that there is an additional horizontal 
bar menu (REQSALL) attached for further options to clarify 
choice of requirements. Refer to the REQSALL menu to 
review these additional menu options. This action is 
accomplished in entirely the same fashion as with the PRINT 
REQUIREMENTS function in the pop up menu (REQSSF) as 
previously discussed. 
b. Print Roster 

The second option on the PRINTSF pop up menu, PRINT 
ROSTER, allows the user to print the security force roster 
in the same manner in which this option did in the ROSTER 
pop up menu. The absence of an arrow indicates to the user 
that there are no further layered menu selections. When this 
option is selected, the internal software maps the print 
command through the database file and sends the information 
to the printer. The Security Force Roster is now available 
in a hard copy format. 

c. Print Drill Report 

The third option in the PRINTSF pop up menu, PRINT DRILL 
REPORT, allows the user to print the information stored in 
the database files on drill reports. This action is 
accomplished in the exactly as in the Drills pop up menu. 


The selection is made, and the internal software maps the 
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print command through the database file and outputs the data 
to the printer. The first three options in the PRINTSF pop 
up menu are provided to the user for convenience. If the 
user enters the Security Force System with the sole intent 
of printing out some information, it is much more convenient 
to use the PRINTSF pop up menu selections, than to navigate 
through several menus to accomplish the same task. The final 
two options on the PRINTSF pop up menu introduce two new 
ideas, and are presented below. 
d. Print Qualifications Nearing Expiration 

The fourth option in the PRINTSF pop up menu, PRINT 
XQUALS < = 45, is an acronym for Print those personnel whose 
small arms qualifications are within 45 days of expiration. 
This option allows the user to have a hard copy listing of 
personnel who must be considered for range qualifications in 
the very near future. It is a good planning strategy to be 
able to know in advance which personnel need to be 
requalified on the weapons that they will be using ina 
security alert situation. This option is also marked with an 
arrow that lets the user know there are further menu options 
available. The menu attached to this option is a horizontal 
bar menu (PEXPIRE) that offers the user to choose the type 
of weapons qualification to check. A sample menu diagram is 


provided below. 
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| SHOTGUN 45CAL 9MM M14/16 


The first option in the PEXPIRE bar menu, SHOTGUN, allows 
the user to check all personnel qualifications on the 
shotgun. This is accomplished through the internal software 
screening the information in the database (mem info.dbf) 
with the use of a filter that specifies expiration dates by 
adding 365 days to the qualification dates. The filter 
checks the dates by subtracting 365 days from today's date 
and further calculating to see if the date of qualification 
is within 45 days of this calculated number. If it is, the 
file is flagged and sent to the printer. The remaining three 
options in this menu are all accomplished in precisely the 
same manner as the SHOTGUN option was done. Within the 
database file (mem info.dbf), information is stored on 
qualification dates for the four separate weapons listed 
above. Accomplishment of this menu feature is done through 
filters that check and calculate these individual 
qualification dates. 

e. Print Expired Results 

The next option in the PRINTSF pop up menu, PRINT EXPIRED 
QUALS, allows the user to print a list of those personnel 
whose qualifications have already expired. This is a very 
important tool because it is mandated by higher authority 


that all personnel who handle weapons must be qualified on 
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the weapon they are assigned. Having qualifications expire 
on a Security Force Member would technically preclude that 
person from handling a weapon. This of course makes the 
member virtually useless to the Security Force, at least 
until the member can be requalified. A list of this type is 
useful to post in the weapons locker to remind duty weapons 
personnel not to issue weapons to unqualified Security Force 
members. This could be a very serious problem if an 
unqualified person accidentally discharged a firearm during 
a drill injuring or worse yet, inadvertently killing a 
shipmate. This option is also marked with an arrow which 
Signals the user that there are other menu options 
available. The horizontal bar menu attached (PEXIRED) allows 
the user to once again choose the weapon in which 
qualifications verification is needed. This horizontal bar 
menu is identical to the menu above (PEXPIRE). The functions 
it provides are very similar in that each option screens the 
database for the appropriate weapons qualification date, 
adds 365 days to it, and compares that to today's date. If 
the date of today is greater than the calculated date, then 
the qualification is expired. This file is then flagged and 
sent to the printer. Once again, the majority of options 
provided in the PRINTSF pop up menu are all duplications of 
print commands that are found in other menus throughout the 
Security Force System. They are provided in one centralized 


location to simplify the user interface. 
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5. Qualifications 
Returning to the main menu of the Security Force System, 
the next option available to the user is QUALIFICATIONS. 
This option provides the user a way to check on the small 
arms qualifications of the Security Force. A layered menu 


diagram is provide below. 


QUALIFICATIONS 





| 


O — d 
¡QUALS 45 DAYS XPIRE| QUALS EXPIRED 
> A. SA 
| 
|SHOTGUN  45CAL 9MM M14/16 


When this option is selected, a pop up menu (QUALS) is 


presented. A menu diagram is provided below. 


| 
QUALS 45 DAYS TO EXPIRE -> 
QUALS EXPIRED -> 
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a. List Qualifications Near Expiration 

The first option available to the user, QUALS 45 DAYS TO 
EXPIRE, allows the user to view a list of personnel who are 
within 45 days of having a particular qualification expire. 
The arrow attached to this menu signals the user that 
further options are available. These options are presented 
in the form of another horizontal bar menu (EXPIRE) and 
allow the user to choose the type of weapon to be checked 
for qualifications expiration. A sample menu diagram is 


provided below. 


SHOTGUN 45CAL 2MM M14/16 


The functions in this menu are accomplished in a nearly 
identical format as described previously in the PRINTSF pop 
up menu section; however, there are general differences. The 
first option in the EXPIRE bar menu, SHOTGUN, allows the 
user to check all personnel qualifications on the shotgun. 
This is accomplished through the internal software screening 
the information in the database (mem info.dbf) with the use 
of a filter that specifies expiration dates by adding 365 
days to the qualification dates. The filter checks the dates 
by subtracting 365 days from today's date and further 
calculating to see if the date of qualification is within 45 
days of this calculated number. If it is, the file is 


flagged and sent to the screen. The remaining three options 
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in this menu are all accomplished in precisely the same 
manner as the SHOTGUN option was done. Within the database 
file (mem_info.dbf), information is stored on qualification 
dates for the four separate weapons listed above. 
Accomplishment of this menu feature is done through filters 
that check and calculate these individual qualification 
dates. 
b. Expired Qualifications 

The next option in the QUALS pop up menu, QUALS EXPIRED, 
allows the user to print a list of personnel whose 
qualifications have already expired. The arrow again 
indicates to the user the existence of an additional menu 
(EXPIRED) with options available to further specify areas of 
qualification. This information is nearly identical to the 
procedures discussed above. 

6. Utilities 

The sixth option in the main menu of the Security Force 
System, UTILITIES, allows the user to perform several 
hardware and system related functions. These functions 
include changing the system date, backing up the dbf file to 
the A drive, backing up the entire directory to the A drive, 
and repairing corrupted indexes. A layered menu diagram is 


provided below. 
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| 
| UTILITIES 


CHANGE DATE| | BACKUP DRIVE A COPY SF APL DRIVE Af |REPR NDX 


Upon selection of this menu option, the user will be 
presented with an additional pop up menu (UTILS). A menu 


diagram is provided below. 





RENE 3 
CHANGE SYSTEM DATE | 
BACKUP TO DRIVE A | 
COPY SF APPL DRIVE Aj 
REPAIR INDEXES | 


a. Change System Date 

The first option of the UTILS pop up menu, CHANGE SYSTEM 
DATE, allows the user to update the date of the computer. 
This is very important in general for timeliness in 
applications, but specifically in this application since the 
qualifications expiration procedures are all calculated 
based on system or current date. The risk factors involved 
with having the incorrect date on a shipboard computer are 
very real with computer down time for maintenance and power 
outages as discussed previously. This option allows the user 


to perform this function without having to exit the system 
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to change the date in the DOS environment; hence it saves 
time that is better spent on other tasks. 
b. Backup Drive A 

The second option in the UTILS pop up menu, BACKUP TO 
DRIVE A, allows the user to copy the database files to a 
floppy disk for backup, etc. For usage as a backup system, 
the importance of this feature is critical. Loss of data in 
any environment equates to lost time as well as a real 
dollar loss. Shipboard applications are no exception. The 
gravity of the situation is compounded for a deployed ship 
without the luxury of borrowing a backup application; 
therefore, this feature when utilized will be invaluable in 
an operational environment. As a sharing device, this 
feature has other benefits. Time and dollars can also be 
saved if one can be convinced to view information via the 
floppy disk medium vice in hard copy (paper). Double density 
floppy disks can store approximately 360 k bytes of 
information. A single sheet of paper can store 2k to 4k 
bytes of information, so a double density floppy disk can 
store approximately the same amount of information as 90 to 
100 sheets of paper. The average cost of 100 sheets of paper 
1s approximately two dollars as compared to the cost of a 
double density floppy disk at about twenty five cents when 


purchased in bulk. The fact that floppy disks are reusable 
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and more economical than paper results in large savings for 
the Navy. 
c. Download Application 

The third option in the UTILS menu, COPY SF APPL DRIVE A, 
allows the user to copy the entire directory to the A drive. 
This feature provides very similar benefits to the previous 
option as a backup. Instead of copying only the database 
information files, this option copies all files to the disk. 
The entire system can be reconstructed, if necessary, from 
the transfer of this information. 

d. Repair Indexes 

The fourth and final option in the UTILS pop up menu, 
REPAIR INDEXES, allows the user to repair corrupted indexes 
in the system which will cause incorrect presentation of 
data. Information designed to be presented in chronological 
order may not be presented as such. This option is a tool 
that can repair the problems that are inherently associated 
With power outages, fluctuations, and interruption. 

E Exit 

The seventh and final option on the main menu of the 

Security Force System is the EXIT option. A layered menu 


diagram is provided below. 
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ENT 


EXIT IO DOS EXIT TO dBASE IV 


Selection of this option presents the user with a final pop 


up menu (EXIT). A menu diagram is presented below. 


EXIT TO DOS 
EXIT TO dBASE IV| 





a. Exit to dBASE IV Control Center 

The second and final option in the EXIT pop up menu, EXIT 
TO dBASE IV, allows the user to exit the Security Force 
System and return to the dBASE IV control center. This is a 
helpful option if the user has programmed additional 
applications into dBASE IV for database related file 
functions in other areas of his or her work. An example of 
this would be utilizing the Security Force System and the 
PRP Database System without the benefit of the PRP Expert 
System. 

The system described in detail above is currently coded 
and operational. Its intended use is to assist the Security 
Officer, the Weapons Officer and the PRP Officer with the 


administrative burdens inherent with these programs. 
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Dew ExT ct to DOS 
Hcutirsteoption in the EXIT pop up menu, EXIT TO DOS, 
allows the user to exit the system and is returned into the 


DOS environment. 
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IV. IMPLEMENTATION CONSIDERATIONS 


A. SHIP'S SECURITY FORCE SYSTEM AS AN NWMS SUBMODULE 

The Ship's Security Force System is designed as a 
submodule of the Nuclear Weapons Management System. The 
project can be a stand alone application as well, and has 
been designed to provide this capability. It is recommended 
that the system be introduced to the fleet, at the present 
time, as a prototype. Prototyping is rapidly becoming the 
software engineering "weapon" of choice, and the Navy could 
benefit greatly from its step-by-step refinement process. A 
software package must be tested rigorously before it can be 
depended upon as a primary tool. Prototyping allows the user 
to become a part of the testing process. Implementation of 
this combined system package could begin immediately, and it 
is recommended that it first be implemented in either a 
shore based facility such as NUCWEPTRAGRU, or a small ship 
afloat. Costs incurred by the Navy for this program will 
include the price of one copy of the VP-Expert software 
package per ship or station. dBASE III+ and dBASE IV 
currently exist in the fleet, hence no further costs are 
anticipated. The PRP program is in need of a tool like the 


Nuclear Weapons Management System, and this package could be 
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an introduction to more serious software related initiatives 


in the fleet. 


B. SHIP'S SECURITY FORCE SYSTEM AS A STAND ALONE 

APPLICATION 

The SSFS System ina stand alone application can benefit 
the PRP officer, the Weapons Officer and the Security 
Officer alike. It is recommended that this application be 
implemented as a prototype to the fleet. With the popularity 
and availability of dBASE III+ and dBASE IV in the Navy, and 
the references and materials available, this application can 
be utilized to assist in administrative tasks of any ship or 
station. The flexibility introduced in the system to allow 
for nuclear capable as well as non-nuclear capable shipboard 
application is another of the versatile elements of the 
system and of the dBASE IV software package. Costs incurred 
are minimal since most ships in the Navy today have at least 


one copy of dBASE IV aboard. 


C. FUTURE EXPANSION POSSIBILITIES 

The expansion possibilities for this system are 
widespread and realistic. With the advent of the CIM 
initiative and the Desktop III and IV contracts, the 


government is propelling the Armed Forces into the 21st 
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century. Computer application is not the future, it is the 
present. The U.S. NAVY must keep abreast of the advancements 
in Information Technology if we are to survive. 

Future expansion modules for this system can include the 
following: NWMS modules to assist with the administrative 
tasks associated with Technical Operations and Training in 
the Nuclear Weapons Management Programs. 

A dBASE IV application that allows the Damage Control 
Assistant (DCA) to track training, material readiness and 
safety in relation to the DCA's responsibilities in an 
Accident Incident Nuclear related drill. Damage control 
personnel must be trained and qualified in their respective 
job related tasks. The subsequent administrative 
requirements are similar to those of security force 
personnel. A stand alone system for the DCA is a realistic 
possibility in the training and tracking of other non- 
nuclear related damage control areas such as fire fighting, 
flooding, and emergency hull repair. 

Another expansion possibility is a submodule for the ASW 
or Special Weapons Officer to track training and other 
administrative functions for personnel responsible for 
maintenance on special weapons. Preventative maintenance and 
training are critical in the Navy, and computer automated 


systems can have been accomplishing similar tasks for years. 
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Another application for the system is assisting the 
Weapons Officer with the administrative requirements 
involved with handling ammunition. Assistance with the 
administrative burden can be provided in the form of a 
submodule in the NWMS system. 

Two additional uses of this system are envisioned in the 
form of expert system applications. The first is Special 
Incidents reporting, and the second is the CASREP system. 
Both of these systems offer written flow charts of required 
procedures and reports that must be submitted based on 
current directives. As with the expert system application in 
the NWMS, administrative burdens and time intensive 
publications searches can be avoided. These are but a few of 
the possibilities that are available when working with a 


combination of a database and expert systems. 
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V. CONCLUSIONS AND RECOMMENDATIONS 

This thesis examines the need for an automated system to 
aid in accomplishing administrative duties in the Nuclear 
Weapons Management and related security programs. As stated 
throughout the thesis, there is a need for PRP applications, 
and applications to assist in other areas related to the 
Nuclear Weapons Management programs. The Nuclear Weapons 
Management System utilizes both dBASE IV and VP-Expert to 
Support the accomplishment of required administrative 
duties. The Ship's Security Force System utilizes dBASE IV 
to demonstrate administrative effectiveness in a non-nuclear 
application. 

Based on the experiment accomplished in this thesis, it 
is recommended that the system be distributed to several 
controlled locations. Formulate a team of "experts" to study 
the use of the software and any associated problems. The 
team can spend some time updating the software and returning 
it to these same controlled locations. After several 
iterations, the software will be evaluated for release to 
the fleet. The hardware, software and expertise are 
available in the Navy today. 

Secondly, with regards to security, advances in hardware 
are so rapid that it is difficult to keep abreast of the 


latest technology. Currently, there exists a 
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portable/removable hard drive available in the marketplace. 
This can increase security of sensitive information without 
having to employ expensive encryption techniques and other 
security features. After the PRP Officer accomplishes the 
required administrative duties, the hard drive is removed 
and placed in the Officers safe. 

With hardware prices declining, software prices rising, 
and the Navy budget under increasing scrutinization, the 
importance of user generated software packages like these 


will continue to be realized. 
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APPENDIX A - USER'S MANUAL 
I. INSTALLATION PROCEDURES 
A.  NWMS BATCH FILES 


The following table provides a list of the NWMS batch 
files. 


FILE NAME FUNCTION 





1.BAT Loads andes ines Re xa eres 

2S BAT Load and run dBase IV for SSFS 

3 «BAS Load and display Administrative Tools Menu 
4. BAT Exit NWMS and return to DOS root dire mann 
A . BAT Load and run dBase IV for PRP roster 

B.BAT Load and print PRP questionnaire text file 
C. BAT Return to NWMS Main Menu 


MAINMENU.SCR Main Menu display 

ADMNMENU.SCR Administrative Tools Menu display 
NWMS.BAT Load and display NWMS Main Menu 
PRPQUES.TXT PRP Questionnaire text file 





It is assumed that the system will be installed onto a 
hard disk that has been designated as a "C" drive. It is 
also assumed that the source files are originating from 
floppy diskettes in the "A" drive. If a higher letter ian 
drive can be'used. instead: et “e we substitute the 
appropriate letter. Additionally, a “B" drive can bes 
instead of the "A" source drive, just substitute the 


appropriate letter. 


To install the NWMS files, use the following steps: 
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Nes ittablish a directory called “NWMS" with the 
command: 
END NWMS" at the C» prompt. 


2. The NWMS batch files will be located on the provided 
source diskette under the NWMS subdirectory. Change to 


this subdirectory with the command: "A:\NWMS". 


Pp Transfer all files from A:\NWMS to C:\NWMS with the 


NUPLowing command: "COPY *.* C:\NWMS". 


The NWMS batch files are now installed. Fo run the NWMS 


program, enter the NWMS subdirectory on the hard drive with 


the command: "CD C:\NWMS" and then type NWMS. The main menu 


should appear. It will be necessary to ensure that dBASE IV 


w P Expert are installed before the menu will be useful, 


but the initial steps of the installation have been 


completed. 


PASS ES SYSTEM 

Before SSFS can be installed, dBASE IV must already 
exist on the C drive (hard disk) under the directory name 
NEP. If this is not the case, follow the steps that 
follow. 


1. Install dBASE IV, if it has not already been 
installed, and establish it under the directory name 


DBASE. 

2. If the program has already been installed but exists 
under a different directory name, an adjustment must be 
made. The directory name for dBASE IV must be renamed 


to DBASE or the batch file that executes dBASE IV 
(2.BAT) must be modified to refer to the actual 


directory name. Either action is easily accomplished by 


using utility software (for example, PC Tools). To 
modify 2.BAT, use the text editor and substitute the 
actual directory name for dBASE IV on the first line. 


Save the change and exit the text editor. To change the 
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directory name, locate the directory tool that renames 
directories, and change the directory name to DBASE. 


Once dBASE IV is correctly established, install the SSFS 
system by copying the files from the source diskette to the 
DBASE directory on the C drive. The following steps apply: 


m Insert the diskette into the A drive and establish 
an A? prompt with the command "A:". 


2. Change to the subdirectory DBASE on the A drive with 
the DOS command "CD\DBASE". 


3. Copy the SSFS files to dBASE IV with the command 
"COPY E CONDES 


The installation of the SSFS system is complete. 


e PRP EXPERT 
For installation procedures of the PRP Expert system, refer 


COME CUP ik 


II. GETTING STARTED 


A. NWMS 

To start the NWMS program, change to the NWMS directory 
with the command "CD\NWMS". Next, begin the program by 
typing "NWMS" and pressing ENTER. The main menu should be 
visible. To make a selection from the menu, type the 


appropriate number and press ENTER. To exit the menu, 
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select "Return to DOS" and press ENTER. The user will be 


meturned to the C drive root di 


B. SSFS SYSTEM 

To enter the SSFS system, 
menu. This will bring the user 
present the sign on banner for 
description of menu options is 


the thesis. 


oP PRP EXPERT 


meter to [Ref. 1}. 


el 


rectory.: 


select SSFS from the main 
directly into dBASE IV and 
the SSFS system. A detailed 


available in chapter III of 


[1] 
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APPENDIX C - SSFS DATA DICTIONARY 


DATABASE FILES (. DBF) 


i Name: MEM INFO 

Narrative Description: Central NWMS database which 
contains information describing each member of PRP along 
with other ship's force members who are involved with 
the security force. 


Representation: 


Field Name type width 
lastname char 12 
mitlals char 4 
rank rate char 5 
ssn char je 
department char 4 
division char 4 
reportdate date 8 
eaos date 8 
sec class char S 
shtgn qual logical 1 
shtgn date date 6 
Eu» qual Vogircal mmi 
KAS date date 8 
F9mm qual logical 1 
F9mm date date 8 
M14 16qual logical 1 
M14 lódate date 8 
billet logical 1 
billetype Chan 10 
qual Char 7 


Unique identifier (key field): ssn 
Note: The logical field "billet" identifies whether or 
not the record is a PRP member. 


z= Name: DRILLS 
Narrative description: Database file used to store 
TINMOEMACION SON Security force drills. 


Representation: 


Field Name type width 
date date 8 
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duty sect numeric 1 


oca tuor character 30 
Ly pe character 6 

scenario character 2254 
comments chamde Cer we 254 


Unique identifier (key field): date 
Note: The field "date" is important for a chronological 
listing of security force dries. 


3. Name:  REQUIREM 
Narrative description: Database file used to store 


information on security force requirements. 


Representation: 








Field Name type width 
sat memo 10 
bat memo 10 
resfor memo 10 
augtor memo 10 
SP cbr aud ds meno 10 


Unique identifier (key field): memo 

Note: The field "memo" is important because it provides 
a text representation to supply the user with reference 
matérials for security force Cemmis and drwi: 
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APPENDIX D - PROGRAM CODE 


X X X X X X X X X X X X X X X X X X X k X X X X X X X k X X X X X k k X X X X X X X X X X k X k X X X X X X X X X X X X 


X X X X X X X X X x 


Ng cEram......: MEM INFO.PRG 

EE Shor.......: Sidney R. Settiemyer, Lt. USN 
oe... å (29-91 

ee. ......: Written as partial fulfillment for thesis 
EIPASE Ver....: 1.1 

* Generated by.: APGEN version 1.3 

x 


ME Urptron..: THIS PROGRAM LISTS AND UPDATES SECURITY 
MOISE PERSONNEL 


Seeperscription..: Main routine for menu system 
X X X X X X X X X X X X X X k X k X X X X k k k X X k X X X X X X X X k X k k X X X k k X X X X X X X X X X X X X X X X 


X X X X X X X X X X 


Se cup environment 
SENECONSOLE OFF 
TF TYPE("gn ApGen")="U" 

CLEAR WINDOWS 

CLEAR ALL 

SEOSE ALL 

OSE PROCEDURE 

gn ApGen=1l 
ELSE 

gn ApGen=gn ApGentl 

IF gn ApGen > 4 

Do Pause WITH "Maximum level of Application nesting 
exceeded." 
RETURN 

ENDIF 

PRIVATE gn oldsize 

gn oldsize=gn scrsize 

MENTE ge bell, ge carry, ge clock, gc century, 
BN oUrIrm, gc deli,; 

cos ae), gc. status Wee score; gc talk; gc key; 
CODO enun, ; 
Bre eeo or ge display, gl color, 

patch, gn scrsize 


ENDIF 
x-— Store some sets to variables 
gc bell SOETC BELL”) 


EM Garry =SET( "CARRY" ) 

ge lock -SET("CLOCK") 
cmo lor =SET("ATTRIBUTE") 
Pemeenitury=SET ("CENTURY") 
eemeontirm=SET( "CONFIRM" ) 
Gemeursor =SET("CURSOR") 

gc deli SEM DELIMITERS” ) 
Semis play=SET("DISPLAY") 


JI 


gc safety S EDO DEI 
gc status SERO SE RU NN 
EC score =SET("SCOREBOARD") 
gc talk =SET("TALK") 
SET CONSOLE ON 
IF gc _ display <> "EGA25" 
gn_error=0 
ON ERROR ?? 
SET DISPEA YO EGAZ> 
ON ERROR 
ENDIE 


SET BELL ON 

SET CARRY VOR 

SET CENT URS Crt 

SET PLO TOUT 

SET CONFIRM OFF 

SET DELIMITERSHT TOR D 
SET DELIMITERST OFE 
SET DEVICE TO SCREEN 
SET ESCAPE ON 

SET VEXCLUSIVE CLE 
SET LOCK ON 

SET MESSAGES. 
SET PRINT OFF 

SET REPROCESS 10-4 
SET SAFETY ON 

SET TALK OFF 


=-=- Initialize global variables 

gl batch=. F. && is a batch operation in progress 

gl color= ISCOLOR() .AND. SET("DISPLAY") <> "COMMON 

gn error=0 && 0 if no error, otherwise an error 
occurred 

gn ikey=0 && keypress returned from the INKEY() 
function 

gn scrsize-21 && number of lines on screen 

gn send=0 && return value from popup of position 
menus 

gn trace=1 && sets trace level, however you need to 
change template 

goods le && border to use when drawing boxes 

gc dev="CON" «€ Device to use for printing = gee 
Proce a Pront Set 

gc key='N' && leave the application 

SC prognum=" && internal program counter to handle 
nested menus 

gce quit m && memvar for return to caller 


listval="NO FIELD’  ©&& Pick Lis tage 


k-- remove asterisk to turn clock on 
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DE 


Å aner — 


SET 
CLE 
SET 
SET 


Å am = 


DO 


X I 


DO 


END 


Ss ar 


DEA 


ae 


gen. 


SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 


TE 


El CLOCK TO 


Blank the screen 
COLOR TO 

AR 
SCOREBOARD OFF 
STATUS OFF 


Define menus 
MPDEF && execute Menu Process DEFinition 


Execute main menu 

WHILE gc key = "Ni 

DO MEMMAIN WITH "BOO" 

wee gutt e "OI 

EXIT 

ENDIF 

ACTIVATE WINDOW Exit App 

icc comf-SET("CONFIRM") 

Memceli=-SET( "DELIMITER" ) 

SET CONFIRM OFF 

SET DELIMITER OFF 
E SAY "Do you want to leave this application?" 

CET gc key PICT "I" VALID gc key $ "NY 

READ 
SEN CONFIRM &lc conf. 
Pee DELIMITER &le deli. 
DECEASE lc conf, lc deli 

DEACTIVATE WINDOW Exit App 
DO 


Reset environment 
CTIVATE WINDOW FuliScr 
womor (gc color) 
ApGen-gn ApGen-1 

BELL  &gc bell. 

CARRY age carry. 

OCK age clock. 

CENTURY €gc century. 

CONFIRM &gc confirm. 

CURSOR &gc cursor. 

BELIMITERS ége deli. 

MSPLAY TO &gc display. 

BWATUS ége status. 

SAFETY égc safety. 

SCORE &gc score. 

TALK &gc talk. 


gn Apgen « 1 


ON KEY LABEL Fi 
CLEAR WINDOWS 


of 


CLEAR ALE 
CLOSE AED 
CLOSE PROCEDURE 
SET ESCAPE VON 
SET NES SER 
CLEAR 
ELSE 
DEFINE WINDOW FullScr FROM 0,0 TO gn oldsize+3,79 NONE 
DEFINE WINDOW Savescr FROM 0,0 TO gn oldsize,79 NONE 
DEFINE WINDOW Helpscr FROM 0,0 TO gn oldsize,79 NONE 
ACTIVATE WINDOW FullScr 
ENDIF 
RETURN 


X X X X X X X X X x X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X k X X X X X kx X X X X X X X X X X X X 


X X X X X X k X X X k X X X X X X X X 


* Description..: Procedure files for generated menu system. 
* The programs that follow are common to main routines 


* The last procedure is the Menu Process DEFinition 
X X X X X X X X X X X X X X X X X x X x X X X X Xx X X X X X X X X X X X X X X X X X X X X X X X X X X k X X X X X k X X 


X X X X ok X ok X * x* X x* X X * X X X X 


PROCEDURE Lockit 
PARAMETER ltype 
IF NETWORK EL) 

gn error=0 

ON ERROR DO Multerr 


DENSIS DOS n 
11 lock=FLOCKk() 
ENDIF 
LE o = ae 
Li _ lock=RLOCK() 
ENDIF 
ON ERROR 
ENDIF 
RETURN 


PROCEDURE Ee 
PARAMETERS lc say 

See eS ay 

> )REPLICATE("=" , LEN(Cle son) 
> 

RETURN 

SOF Tn O EOX 


PROCEDURE get_ sele 

*-- Get the user selection & store BAR into variable 
gn send = BAR() && Variable for print testing 
DEACTIVATE POPUP | 

RETURN 


PROCEDURE ShowPick 
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listval=PROMPT() 
EE EFT(entryfl1g,1)-2"'"bB" 
Men fite=POPUP() 
bol&lc file. WITH "A" 
RETURN 
ENDIF 
fee PEC “lc window")="U" 
ACTIVATE WINDOW ShowPick 
BESE 
ACTIVATE WINDOW élc window. 
ENDIF 
Sebo TO ln ikey,xi,x2 
In ikey=LASTKEY() 
IF In ikey=13 
EUEATCTRIM(Iistval)*',',l1c fldlst) 
ME ki = 0 
MENN dist-le tfidisttITRIMClistval)+* 3 
ELSE 
EXP 4 ,oUBSITR( le fldlst;xl)) 
Ma II si=SIUFFE(tec, Fldist,xi,x2,'”) 
ENDIF 
CLEAR 
Ec fldist 
ENDIF 
ACTIVATE SCREEN 
RETURN 
IED ShowPick 


PROCEDURE Cleanup 


x=- test whether report option was selected 
DO CASE 
CASE gc dev-'CON' 

EN Press any key to continue..." 


xx=INKEY(0) 
CASE gc dev="PRN" 
SJET PRINT OFF 
SET PRINTER TO 
CASE gc dev="TXT" 
CLOSE ALTERNATE 
ENDCASE 
gc devz'CON' 
RETURN 


* EOP: Cleanup 


PROCEDURE Pause 
PARAMETER 1c msg 
*-- Parameters : lc msg = message line 
eel Y PEC "lc message")="U" 
gn error=ERROR() 
ENDIF 
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lc msg = lec _ msg 
le option= on 
ACTIVATE WINDOW Pause 
IF gn error a 
IF TYPE("]lc_message")="U" 


@ 0,1 SAY [An error has occurred !! - Error message. 
] *MESSAGE() 
ELSE 
Å 0,1 SAY [Error # ]+lc message 
ENDIF 
ENDIF 
@ 1,1 SAY lc_msg 
WAIT " Press any key to continue..." 
DEACTIVATE WINDOW Pause 
RETURN 


* EOP: Pause 


PROCEDURE DIMI vem 


*--—. set the global error varranle 

gn error=ERROR() 

t== contains error number to test 

le erno SIR ERROR) J n 

Ke SOD WONM an 

lic opta i 

*-- Dialog box for options Try again and Return to menu. 


LE Teens TOS T09 1287 r29 2 

ACTIVATE WINDOW Pause 

G 0,2 SAY Jcmernet”  tMESSAGEC) 

@ 2,22 SAY "T = Try again, R = Return to menu." GET 
| CE ODE 


PICTURES NAD aC Oi A 
READ 
DEACTIVATE WINDOW Pause 
Malc opt = R 
RETURN 
ENDIF 
ENDIE 
*-- Display message and return to menu. 


IF ..NOT. Ic erno s  10Gyae 5.126, 12977) 
DO PAUSE WITH ERROR 
RETURN 

ENDIF 

x-- reset global variable 

gn error=0 

*-- Try the command again 

RETRY 

RETURN 


aT EOP: MOIM ETI 
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IEOCEDURE Trace 
neset: Trace procedure - to let programmer know what 
module 
x is about to execute and what module has 
executed. 
PARAMETERS p msg, p lvl 
^-- Parameters : p msg = message line, p lvl = trace level 
le msg =“ p msg 
in (wl p ivl 
le trp p" 
Mean trace < ln lvl 

RETURN 
ENDIF 
DEFINE WINDOW trace FROM 5,0 TO 16,79 DOUBLE 
ACTIVATE WINDOW trace 
DOSWHTLE le trp <> *Q' 

CLEAR 

@ 2,40-LEN(lc_msg)/2 SAY lc msg 

IDO SAY °S = Set trace level, D - Display status, M - 
display Memory’ 

Gem o SAY “P - Turn printer on, Q = to Quit’ 


erp = *Q’ 

NET S GET le trp PICTURE "I" 
READ 

DO CASE 

Celice trp = "Sr 


@ 2,01 CLEAR 
@ 2,33 SAY "Set trace level: 
mma, O53 SAY "Enter trace level to change te:” GET 
mace PICTURE '£' 
SEX SAY ' i 
READ 
heen trace=0 
@ 2,01 CLEAR 
EWO (5 SAY “face 1Ss now turned Off. bovreactivate 
ieee —- Press [F3]' 
ATEOS say Press Samy key tro continue... 


3 


WAIT ”” 
ON KEY LABEL F3 gn trace = 1 
ENDIF 
ESSE lc trp = "Di 
DISPLAY STATUS 
WAIT 
ESSE Ic trp = "NI 
DISPLAY MEMORY 
WAIT 
ENSE ic trp = *P* 
SET PRINT ON 
ENDCASE 


ENDDO 
EI PRINT OFF 
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RELEAS 
@ 24,7 
RETURN 


NEOP: 


E WINDOW trace 
9 SAY li li 


Trace 


PROCEDURE PrintSet 


Acum 
ge dev 
lc_cho 
gn_pke 
gn sen 


DEFINE 


DEFINE 
DEFINE 
DEFINE 
DEFINE 
"Send 

DEFINE 
MESSAG 
DEFINE 
MESSAG 
DEFINE 
MESSAG 
DEFINE 
"Send 


itialize variables 
=’CON’ 

ice=’ ’ 

y=0 

d=3 


WINDOW printemp FROM 08,25 TO 17,56 


POPUP SavePrin FROM 10,40 

BAR 1 OF SavePrin PROMPT " Send output to . MM UNE 
BAR 2 OF SavePrin PROMPT REPLICATE(CHR(196),24) SKIP 
BAR 3 OF SavePrin PROMPT " CON: Console" MESSAGE 


output to Screen" 

BAR 4 OF SavePrin PROMPT " LPT1: Parallel pes m 

E “Send output Toor TETE 

BAR 5 OF SavePrin PROMPT " LPT2: Parallel Dor SE i 

E “Send output to LET 

BAR 6 OF SavePrin PROMPT " COM1: Serial PON 

E “Send-output to CONT 

BAR 7 OF SavePrin PROMPT " FILE = REPORT. 
output Lost dle Report rla 


ON SELECTION POPUP SavePrin DO get sele 


ACTIVATE POPUP SavePrin 
RELEASE POPUPS Say ePram 


gn pke 


IF gn 


EC 


SET 


SET 
ELSE 
IF 


END 
ENDIF 
RECEA S 


y=LASTKEY() 

send = 7 

der = C TXT” 

ALTERNATE TO REPORT.TXT 
ALTERNATE ON 


NOT. (gn send OTOR ES KET) 2 “279 
gc dev = ”PRN" 
temp = SUBSTR(" LPTILPT2COMi ",((gn send=2) enn 
ON ERROR DO prntrtry 
SET PRINTER TO &temp. 
IF gn pkey <> 27 
SET PRINT ON 
ENDIF 
ON ERROR 
IF 


E WINDOW printemp 
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RETURN 


EWO EDURE prntriry 
PRIVATE lc escape 
immeceape = SET("ESCAPE") 
ME NOT. PRINTSTATUS() 


mete escape = "ON" 
NET ESCAPE OFF 
ENDIF 


gn pkey = 0 
ACTIVATE WINDOW printemp 
a 0 SAT?""Please ready your printer or" 
8,0 SAY " press ESC to Cancel” 
DO WHILE ( .NOT. PRINTSTATUS()) AND. gn pkey <> 27 
gn pkey = INKEY() 
ENDDO 
DEACTIVATE WINDOW printemp 
EIS PRSCAPE &lc escape. 
lon pkey <> 27 
RETRY 
ENDIF 
ENDIF 
RETURN 


EU UP PrintSet 


PROCEDURE Position 

IF LEN(DBF()) = O 
DO Pause WITH "Database not in use. " 
RETURN 

ENDIF 

SET SPACE ON 

SET DELIMITERS OFF 


in type=0 && sublevel selection 

Meee y=READKEY() && test for ESC or Return 

In rec=RECNO() && DBF record number 

In num=0 && for input of a number 

ld date=DATE() && for input of a date 

lc_option=’0' && main option ie. Seek, Goto and Locate 


rope ie. ALL, REST, NEXT «n» 

SORES OPACE(10) TO ic sen 

E - Character SEEK, 2 = For clause, 3 = While clause 
ENGEESSPACE(40) TO lc 1ni1, lc in2, ic in3 

NEN emp-"" 

@ 0,00 SAY "Index order: "TIIF(""sORDER(),"Database is in 
natural order",ORDER()) 

@ 1,00 SAY "Listed below are the first 16 fields." 

lc temp=REPLICATE(CHR(196),19) 

a 2,0 SAY 

Au 218)*lc temprtCHR(194)*lc temptCHR(194)t*tic temp+CHR(194)+ 
le temp 
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In num=240 
DO WHILE In num < 560 
Ic temp-EIELD( (In num-240) 7708050 
Å (In num/80), MOD(1n num,80) SAY CHR(179)+; 
le temptSPACE (11-LEN( lc tempo. 
SUBSTR("= Char = Date = Logic = Num = Float = Memo 


3 9 

AT TYPE (UV EP DENE) 
ln num-1n num+20 

ENDDO 

ln num=] 


DEFINE «POPUP Posit EE 

DEFINE BAR 1 OF Positi PROMPT " Position by " SKIP 

DEFINE BAR 2 OF Posit1l PROMPT REPLICATE(CHR(196),15) SKIP 
DEFINE BAR 3 OF Positl1 PROMPT " SEEK Record" MESSAGE "Search 
on index key" SKIP FOR ""=ORDER() 

DEFINE BAR 4 OF Positl1 PROMPT " GOTO Record" MESSAGE 
"Position to Speexiiec rer ak 

DEFINE BAR 5 OF Positl1 PROMPT " LOCATE Record " MESSAGE 
"Locate record for condition" 

DEFINE BAR 6 OF Positl PROMPT " Return" MESSAGE "Return 
without positioning" 

ON SELECTION POPUP Posit1 DO get _ sele 


SET CONFIRM ON 
DO: WHILE lc options 0: 
ACTIVATE. POPUP Positi 
Ic option = ltrim(str(gn_send)) && for popup 
IF LASTREY()1= 27 .0k LO Opio O 
COLO marem 
EXIT 
ENDTE 
DO CASE 
CASE lc option ie 
Naso OS 
IF LEN(NDX(1))=0 .AND. LEN(MDX(1))=0 
DO Pause WITH "Can’t use this option - No index 
files are open." 
LOOP 
ENDIF 
on ype- l 
lc_1n1=SPACE(40) 
DEFINE WINDOW Posit2 FROM 8,19 TO 15,62 DOUBER 
ACTIVATE WINDOW Posit2 
Q 1,1 SAY "Enter the type of expression:" GET tas 
PICT “> RANGE 1,3 
Q 2,1 SAY "(1l=character, 2=numeric and 2-dave Ou 
SET CURSOR ON 
READ 
SET CURSOR OFF 
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TE 


NOT READKEY() 7 12 -OR READKEY() = 268) 
SET CONFIRM ON 
MN AN SAL Enter the key expression to search for: " 
IF in type=3 

C4, L GET ld date PIET “Eb” 
ELSE 

IF In type=2 

@ 4,1 GET In num PICT "jj /4/9J9ÁRTzQcdÓegsgig" 


ELSE 
@ 4,1 GET lc Ini 
ENDIF 
ENDIF 
SET CURSOR ON 
READ 


SET CURSOR OF Eb 
SET CONFIRM OFF 
NERE ND (ENN? -ORT READKEY() = 268) 


Enp I IF(ln type=1,"TRIM(lc_lni)",IIF(ln_type=2,"ln_num", 
ardedate")) 


SEEK &lc temp. 
ENDIF 


ENDIF 

PELEASE WINDOWS Posit2 
CASE lc option=’4’ 

Ec GOTO 


In 


type=1 


DEFINE POPUP Posit2 FROM 8,30 
DEFINE BAR 1 OF Posit2 PROMPT ~ GOTO: SKIP 
DEFITNETBAR 2°50F Posit2 PROMPT REPLICATE(CHR(196),10) 


SKIP 


ANNE ARS O Posit2 PROMPT i TOP" MESSAGE "GOTO Top 


cerle" 


DEFINE BAR 4 OF Posit2 PROMPT " BOTTOM" MESSAGE “GOTO 
Bottom of File" 

DEFINE BAR 5 OF Posit2 PROMPT " Record # " MESSAGE 
Mowe A Specific Record" 


ON 


PEVECIlOhVOPUP=Paosit2 UO get sele 


ACTIVATE POPUP posit2 
In type = gn_send 
ME TASTREY() <> 27 


En type= 
DEFINETWINDOW Posit2 FROM 8,26 TO 13,50 DOUBLE 
ACTIVATE WINDOW Posit2 
ln num=0 
oe NN Nas Record = 


"+LTRIM(STR(RECCOUNT())) 


"HEU GE aE HEY 


(et oon Ree ond Co COTO" GET In num PICT 
RANGE 1,RECCOUNT() 

SET CURSOR ON 

READ 
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SETAS ORO Eb 
IF .P NOT. (READKEY() = 12 .OR. READKEY() DENMEN 
GOTO In num 
ENDIF 
RELEASE WINDOWS Posit2 
ESE 
lé témp=-IIF(in type JM on por = 
GOTO &lc_ temp. 
ENDIF 
ENDIF 
CASE Le 20 ptien=. oF 
t=- Locate 
DEFINE WINDOW Posit2 FROM 8,16 TO 14,66 DOUBLE 
ACTIVATE WINDOW Posit2 
@ 1,19 SAY "ie. ALL, NEXT «a anda kEi 
@ 1,01 SAY "Scope: GET le sap 
@ 27/01 SAY “For: "GEI len? 
@.3,;01 SAYS any ley SCE) hema 
SET CURSOR ON 
READ 
SET CURSOR OFF 
IF .NOT. (READKEY() = 12 .OR. READKEY() =S 
EE 
lc temp=“lc temp + IIF(LEN(TRIM(lc ln2)) “on 
ZER plete ew 
ic temp-lc temp * IIF(LEN(TRIM(ic 1n3)) FO 
Yt RC Celine) 
IF LEN(lc temp) > O 
LOCATE Ale Tt Cup: 
ELSE 
DO Pause WITH "All fields were blank.” 
ENDIF 
ENDIF 
RELEASE WINDOW Posit2 
ENDCASE 
IFVEBORT) 
DO Pause WITH "Record not found." 
GOTO In rec 
ENDIE 
IF READKEY()=12 .OR. READKEY()= 268 .OR. LASTREY (IEPS 
Esc Was dine 
lc option='O' 
ENDIF 
ENDDO 
SET CURSOR &gc_cursor. 
SET DELIMITERS Sge deli: 
SET CONFIRM OFF 
RETURN 


* EOP: Position 
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PROCEDURE BefAct 

SAVE SCREEN TO Browscrélc ApGen. 
BEAGTIVATE WINDOW Fullscr 

SET SCOREBOARD ON 

RETURN 

seer: BefAct 


PROCEDURE AftAct 

CLEAR 

SET SCOREBOARD OFF 

CARATE WINDOW Fullscr 

HESTORE SCREEN FROM Browscrålc ApGen. 
RELEASE SCREEN Browscrålc ApGen. 
RETURN 

OP: AftAct 


PROCEDURE Postnhlp 

In getkey=INKEY() 

DEFINE WINDOW Temphelp FROM 3,12 TO 19,67 
ACTIVATE WINDOW Temphelp 

DO CASE 

EXT SEEK" S PROMPT() 

Ma HELP SEEN 

SEEK <exp»" 


«JD 


Evaluates a specified expression and attempts to" 
find its value in the master index of the database" 
mime, Returns a logical true (.T.) if the index" 
ESAE: focund;-and a logical false (.F.) if 1t is” 
moet found." 


meee SEER CTOD(’11/03/87’) -~ converts the" 
Ares sion from character to date and" 
then searches for the value in the index" 


Noe oe) 69 €) oS) eS 9 69 69 Ss 


BU SPEFI(LTRIM(PROMPT()),4) $ "GOTO TOP BOTT Reco" 
SEED? GOTO 

GO/GOTO BOTTOM/TOP [IN <alias>]" 

or" 

GO/GOTO [RECORD] <record number> [IN <alias>]" 
or" 

«record number»”" 


«J 


“Qe ey ed 


XJ 


Mesitions the record pointer to a specified record" 
or location in the active database file.” 


TOP moves the pointer to the first record" 
5 BONO moves the pointer to the last record" 


TEx: 4 - moves the record pointer to record 4" 


e N n e e N e N 
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CASE LOCATESN TONEN 

== HELP LOCATE 
" LOCATE FOR <condition> [<scope>]" 
[WHILE <condition?]" 


Searches the active database file, sequentially," 
for the first record that meets the specified" 

" criteria. The function FOUND() returns true (.T.)" 
" if LOCATE is successful." 


"^ Ex: LOCATE FOR Age. “235 NEXT. 
searches for the next five records" 
containing 25 in the Age field" 


ASE "Return" $ PROMPT() 


es) «J OM Qe oc] |) | | S ey mS) mS m) ex * 


Return to action in progress, with or without" 
? " positioning the record pointer.“ 

ENDCASE 

In getkey = INKEY(0) 

DEACTIVATE WINDOW Temphelp 

RELEASE WINDOW Temphelp 

RETURN 

* EOP: Postnhlip 


FUNCTION Color 


* Format: 

* COLORCSESME DC ) 

* <expC> =. NORMAL, HIGHLIGHT, MESSAGES, TITLES T DOE 
INFORMATION, FIELDS 

t or a variable with all colors store in it 

* Ver: MSPEL 2 

* The COLOR() function either returns or sets cole. 
returned with the 

x. SET (tattribuüute") sev"ing 

^ If <expC> is a color string then null is return i 
otherwise the color 

* setting is returned for one of dBASE’s color options 


* See Also: SET("attribute") 


PARAMETERS set_color 
PRIVATE color num, color SEn aCi 


set -color - UPPER(set colo) 
IF set_color = "COLOR" 
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return standard, enhanced, border colors only 
END NESUBSTR(SET("attr")S TX ATQ 6", SET("attr"))) 
ENDIF 


mu rclare array to parse color options from SET("attr") 
CARATE color ` 

PE CLARE color [8] 

Determine 1f user is restoring colors vs. saving colors 
ENS os set color 


EMUT str = ","tset colort"," && Restore 
eolor attributes 
ELSE 
RENT str - ","+SET("ATTRIBUTE")+"," && Save 
color attributes 
ENDIF 
E uif array with individual color setting 
datn estr = sTUFF(color str, AT(" &", color str), 4, ",") 
cnt = 1 
DO WHILE cnt <= 8 
Mas tr = SUBSTR(color str, AT(",", color str ) *1 ) 
END ent] - SUBSTR(color str, i, AT('",", color str ) - 
1) 
ant = cnt + 1 
ENDDO 
NES E set color 
Mwe" Set color back 
EIENIMEOLOR TO ,,écolor [3]. && Border 
color 


ORC OLOR OF NORMAL TO &color [1]. 

MERR OLOR OF HIGHLIGHT TO «color [2]. 
NW EOLOR OF MESSAGES TO &color [4]. 
ARI COLOR OF TITLES TO &color [5]. 
EENNCOLOR OF BOX TO &color [6]. 

FERC COLOR OF INFORMATION TO &color [7]. 
THE OLOR OF FIELDS TO &color [8]. 


ESE 

Me kKeturn color string requested 

DO CASE 

er set color $ "NORMAL" 
color num = 1 

mE set color S "HIGHLIGHT" 
color num = 2 

CASE set color $ "BORDER" 
color num =“ 3 

CASE set color $ "MESSAGES" 
color_num = 4 

EXSE set color $ "TITLES" 
color num = 5 

ESSE set color $. "BOX" 
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color_num = 
CASE set tolan 
color num = 
CASE set color 
color num = 
ENDCASE 
ENDIF 
RETURN TIF(" &" § set color, “AA color [color anmi 


"INFORMATION" 


FIETPS 


ODN NUN 0 


X X X X X X X X X k X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X Xx k/ x kk 


X X X X X X X X X X 


xProgran MEULE 

* Author:......% Srdmey R: Settlemyer, LE mU 

* Da Ce ess D 

* Notice... WM 

* dBASE Ver "e n 

* Generated by.: APGEN version 1.3 

* Description..: THIS PROGRAM LISTS AND UPDATES SEO 


FORCE: PERSONNEL 


* Description..: Defines all menus in the system 
X X X X X X X*X X X X X X X X k X k k X X X Xk X X X X X Xk X X X X k X X X X X Xk X Xk X X Xk X X X X X X Xk X X Xk X X Xk X X X 


X X X X O 


PROCEDURE MEDEF 
rE gi color 
SET COLOR OF NORMAL TO W+/B 
SET COLOR OF MESSAGES LO NEÓN 
SET COLOR OF TITLES TOMB 
SET COLOR OF HIGHLIGHT STO RCH CE 
SET COLOR OF BOXTTO RGOI MOD 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS Tow CE 
ENDIF 
CLEAR 


s= SI Pn r On Danner 


SET BORDER TO 

A 5,9 TO 16,69 DOUBLE COLOR EGt Ge 

@ 8,10 SAY " SHIPBOARD SECURITY FORCE SYS] Eee 
GO TOTS ALY a NWMS SUBMODULE" 

Q 6,10 FILL TO 15,68 COCOR WiN 

a 24,30 SAY " Press “+CHR(17 )+CHRUI96) 7 CHR?) e 
continues. 

gn ikey=INKEY(500) 


CLEAR 


*-- Prevents clearing of menus from commands: 
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ESSET STATUS and SET SCOREBOARD 

DEFINE WINDOW FullScr FROM O,O TO 24,79 NONE 
= Position at runtime and batch process 
DEPINE WINDOW. Savescr FROM 0,0 TO 21,79 NONE 
EFI Help 

DEFINE WINDOW Helpscr FROM 0,0 TO 21,79 NONE 
IF gn ApGen=l 


Mwa AFFE you sure? (exit application) 
IISETNE WINDOW'Exit App FROM 11,17 TO 15,62 DOUBLE 
*-- Pause message box 


DEFINE WINDOW Pause FROM 15,00 TO 19,79 DOUBLE 
ENDI F 


ACTIVATE WINDOW FullScr 
@ 24,00 

@ 23,00 SAY "Loading..." 
SET BORDER TO DOUBLE 


Ex Bar 
DEINE MENU MEMMAIN MESSAGE "Position with: 
mee 27 )tCHR(26)+’ - <Enter> to select choice - <F1> Help’ 


Poin PAD PAD 1 OF MEMMAIN PROMPT "SF REQS" AT 1,1 
Mer PAD 1 OF MEMMAIN ACTIVATE POPUP REQSSF 

Peeve PAD PAD 2 OF MEMMAIN PROMPT "SF ROSTER" AT 1,11 
GAN PAD FAD 2 OF MEMMAIN ACTIVATE POPUP ROSTER 

Peeve PAD PAD 3 OF MEMMAIN PROMPT "SF DRILLS" AT 1,23 
DE SD PAD 3 OF MEMMAIN ACTIVATE POPUP DRILLS 

Peeve PAD PAD 4 OF MEMMAIN PROMPT "PRINT SF" AT 1,35 
DEAD PAD 4 OF MEMMAIN ACTIVATE POPUP PRINTSF 

PERENNE PAD PAD 5 OF MEMMAIN PROMPT "QUALIFICATIONS" AT 1,46 
Cie FAD 5 OF MEMMAIN ACTIVATE POPUP QUALS 

eevee PAD PAD 6 OF MEMMAIN PROMPT "UTILITIES" AT 1,63 
"UND PAD 6 OF MEMMAIN ACTIVATE POPUP UTILS 

PENE PAD PAD 7 OF MEMMAIN PROMPT "EXIT " AT 1,74 

NM B PAD 7 OF MEMMAIN ACTIVATE POPUP EXIT 

Eben 

SET BORDER TO DOUBLE 

at O pup 

MENASE T POPUP REQSSF FROM 4,0 TO 8,29 ; 

GE "Position: *+CHR(27)+CHR(26)+CHR(25)+CHR(24)+” 
pees) “ +CHR(17)+CHR(196)+CHR(217)+” Help: Fi’ 
Veen DAR 1 OF REQSSF PROMPT "VIEW SPECIFIC REQUIREMENT -»" 


BEEANNE BAR 2 OF REQSSF PROMPT "EDIT REQUIREMENTS mot 
Peeve BAR 3 OF REQSSE PROMPT "PRINT REQUIREMENTS p 
ON I POPUP SREGSo) SDOeACTO2 

SET BORDER TO DOUBLE 


E Popup 
MINE POPUP ROSTER FROM 4,11 TO 8,36 ; 
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MESSAGE 
Select: 


55 nou 


"Position: 


*+CHR (ie) +CHRC196) HEN BUS 
DEFINE BAR te OF ROSTER VPRO TEs 
DEFINE BAR 2 GE ROSTER SP ROME? 
DEFINE BAR SS CEeROstTER ERG? 
ON SELECTION POPUP ROSTER DO ACTOS 


SET BORDER TO DOUBLE 
A=" Popup 
DEFINE POPUP DRILLS FROM 4,23 TOTO 


MESSAGE 
Select: 


ON 
29 


n Mw 
e 


"Position: 


"+CHR(IT ) +CHR (NGOER NT 
DEFINE "BAR 2 OF DREILUES Paar 
DEFINE BAR" 2720F DRILES T PRONE 
DEFINE BAR 3 OF DRILECSSEROMNMET 


SET BORDER TO DOUBLE 
So Ip 
DEFINE POPUP PRINTS? EROS O 


MESSAGE 
Select: 


DEFINE 
DEFTNE 
DE FINE 
DEFINE 
DEFINE 


“Position: 


“VIEW 


*+CHR(ITIFCHR(190JE HRZ TO 


BAR 1 
BAR 2 
BAR 3 
BAR 4 
BAR 5 

N 


ON SELECTIO 
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GE 
OF 
OF 
OF 
OF 


PRINTSF 
PR Pho 
PRINTSF 
PRINTSE 
PRINTSE 


PROMPT 
EKOMET 
PROMPT 
PROMPT 
PROMPT 


"PRINT 
PRINT 
“ERKINE 
"PRINT 
SERINE 


POPUP SPRINTS E OWA Oo 


SET BORDER TO DOUE 


ve SEG 


PUP 


DEFINE POPUP QUALS FROM 4,46 TO 7,73 


MESSAGE 
Select: 
DEFINE BAR 1 OF QUALS PROMPT 
DEFINE BAR 2 OF QUALS PROMPT 


’Position: 


"CERRO NN 


ON SELECTION POPUP QUALS DO ACT06 


D99 m u 


SET BORDER TO DOUBLE 


a re 


Popup 


DEFRNERPOPUP UTILS FRONTA OR ORT 


MESSAGE 
Select: 


DEE ENE 
DEFINE 
DEBE 
DEF CNE 


‘Position: 


"+#CHR(17])fCHR(196 )FEHR (2 ECR 


BAR 1 
BAR 2 
BAR 3 
BAR 4 


ON SELECTION 


END " " 


OF UVUTILS PROMET 
OF UTILS PRONE 
OF UTILSSERKONET 
OE UTILS PROMET 


POPUP UTILS DOSA TON 


SET BORDER TO DOUBLE 


X uam 


Popup 
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"+CHR(27 )+CHR( 26) +CHR (925 )+CHR (20008 


Help: F1’ 


"VIEWSSECURITY ROS PERS 
"UPDATE SECURITY ROSA 
"PRINT SECURITY ROSTER" 


'YCHR(27) *CHR(26) YCHR(25) * CHR CODI 


Help: F1' 


DRILLS" 
EDIT DANNE 
“PRINT DRIES 
SELECTION POPUP DRTEES = sO NOG 


' FCHR(27) YCHR(26) YCHR(25) *CHR(2B LM 


Help: F1' 
REQUIREMENTS 
ROSTER" 

DRILL REPORT 
XQUALS «=45 = 
EXPIRED QUALS AM 


=>" 


'FCHR(27)+CHR(26)+CHR(25)+CHR (24 


Help: F1’ 


"QUALS 45 DAYS TO EXPIRE 
"QUALS EXPIRED 


=>" 


"+CHR(27)+CHR(26)+CHR(25)+CHR( 24088 


Help: Fl’ 


"CHANGE SYOPEM DATE" 
“BACKUP TO DRIVE A" 

“COPY SE APPELL DRIVE 

"REPAIR INDEXES" 


As 


DEFINE POPUP EXIT FROM 
Position: 
PrP CHRCL? )tCHR( 196) +CHR( 217 kk 


MESSAGE 
Select: 


EBENE BAR 1 OF EXIT PROMPT 
TINE BAR 2 OF EXIT PROMPT 
GENS SELECTION POPUP 


SO amou 


4,00 500 AAA: 

ACHR( 27) FCHR( Z 6)FCHR(25)FCHR(24)+' 
Help: FI” 

"TO dBASE IV" 

“EXIT TO DOS" 

EXIT DO ACTO8 


DENIS BORDER TO DOUBLE 


E bar 


DEFINE MENU REQSALL MESSAGE 
'+CHR(27)+CHR(26)+? - 


DEFINE PAD PAD 1 
ON SELECTION PAD 
DEFINE PAD PAD 2 
ON SELECTION PAD 
DEFINE PAD PAD 3 
ON SELECTION PAD 
DEFINE PAD PAD 4 
ON SELECTION PAD 
DEFINE PAD PAD 5 
ON SELECTION PAD 
DEFINE PAD PAD 6 
ON SELECTION PAD 


S 8 " 


' Position with: 


SE EORDER TO DOUBLE 


x=- Bar 


DEFINE MENU EDREQS MESSAGE 
EIN 27)tCHR(26)*' - 


DEFINE PAD PAD 1 
ON SELECTION PAD 
DEFINE PAD PAD 2 
ON SELECTION PAD 
DEFINE PAD PAD 3 
ON SELECTION PAD 
DEFINE PAD PAD 4 
ON SELECTION PAD 
DEFINE PAD PAD 5 
ON SELECTION PAD 
DEFINE PAD PAD 6 
ON SELECTION PAD 
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SET BORDER TO DOUBLE 


NM 


Bar 


DEFINE MENU PRNTREQS MESSAGE 
'+CHR(27)+CHR(26)+” - 


DEFINE PAD PAD 1 
ON SELECTION PAD 
DEFINE PAD PAD 2 
ON SELECTION PAD 
DEFINE PAD PAD 3 
ON SELECTION PAD 


<Enter> to select choice > <[F1> Heip’ 
OF REQSALL PROMPT "SAT REQS" AT 7,1 
PAD) OF REQSALL DO ACTOS 
Clee bOo Maier ROMP I BAR UREOS ATS? {42 
PAD 2 OF REOSALL DO ACTOS 
GESREUSALESEROMPT EE 
PAD 3 OF REQSALL DO ACTO9 
OETREOSALL PROMPT “AUGEOR REOS" Al 7,37 
PAD 4 OF REQSALL DO ACTO9 
QIEEOSA LE SEROME ES DRILISKEOQOS" AT 7,51 
PAD 5 OF REQSALL DO ACTOS 
OFSRBEOSALL PROMPTS "EXIT” AT 7764 
PAD 6 OF REQSALL DO ACTO9 
Position with: 
Ete ose ect choice -~ <F1> Help’ 
CPR E Come ROME TE SAT REQS AT 8,1 
Pave Or Sh DREQS DO ACTOTO 
OF EDREOS PROMPT "BAF REQS" AT 8,12 
PAD 2 OF EDREQS DO ACTO10 
OF EDREQGS PROMPT "RESFOR REQS" AT 8,23 
PAD 3 OF EDREQS DO ACT010 
OF EDREQS PROMPT "AUGFOR REQS" AT 8,37 
PAD 4 OF EDREQS DO SAC TOTO 
OGFSEDREUS=PRONPT keet 8,51 
PAD 5 OF EDREQS DO ACTOIO 
GEDE OS NE KONE TAS EXIT “AT 8,65 
PAD OF TEDREQS BOG -ACTOIO 
'Position with: 
<Enter> to select choice - <F1> Help’ 
OF PRNTREQS PROMPT “SAT REQS" AT 9,1 
PAD 1 OF PRNTREQS DO ACTO11 
OF PRNTREQS PROMPT "BAF REQS" AT 9,12 
PAD 210P PRNTREQS DO ACTOL 1! 
OFT PRNTREOS PROMPT “RESFOR REOS" AT 9,23 


PAD 3 OF PRNTREQS DO ACTO11 
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DEFINE PAD PAD 4 OF PRNTREQS PROMPT “AUGFOR REQS" AT 9,37 
ON SELECTION PAD PAD 4 OF PRNTREQS DO ACTO11 

DEFINE PAD PAD 5 OF PRNTREQS PROMPT "DRILL REOS" AMOO 
ON SELECTION PAD PAD 5 OF PRNTREQS DO ACTO11 

299 u u 


SET BORDER TO DOUBLE 


MBA 
DEFINE MENU PEXPIRE MESSAGE 'Position with: 
"+CHR(27)+CHR(26)+" - <Enter> to select choice - CERNERET 


DEFINE PAD PAD 1 OF PEXPIRE PROMPT “SHOTGUN” AT 10,36 
ON SELECTION PAD PAD I OF PEXPIRERDOTAC TON 

DEFINE PAD PAD 2 OF PEXPIRE PROMPT SSA ANNET 
ON SELECTION PADSPAD 2 OF PEXPIRE SORA C TOR 

DEFINE PAD PAD 3 OF PEXPIRE PROMPT SMM RAT BO; 52 

ON SELECTION PAD PAD 5 OE BEXPTEE DO KAETOIZ 

DEFINE PAD PAD 4 OF PEXPIRE PROMPT "Ml4/lö" AT TOTU 
ON SELECTION PAD PAD 4 OF PEXPIRE DO ACTO12 

D 


SET BORDER TO DOUBLE 


tcu gar 
DEFINE MENU PEXPIRED MESSAGE 'Position with: 
'tCHR(27)*CHR(26)*' - «Enter» to select choice - CEJDSNEMUOUND 


DEFINE PAD PAD 1 OF PEXPIRED PROMPT “SHOTGUN NAT 
ON SELECTION PAD PAD 1 OF (PEXPIRED DO CHO 

DEFINE PAD PAD 2 OF PEXPIRED PROMPT “45CAL 341 Sige 
ON SELECTION PAD PAD 2 OP PEXPIRED DOTACIOTS 

DEFINE PAD PAD 3 QF PEXPIRED PROMPT EIERE 

ON SELECTION- PAD PAD 3 OF PREXPTKEDEDOFAC TOR 

DEFINE PAD PAD 4 OF PEXPIRED PROMPT "M14/16" AT ieee 
ON SELECTION PADVEAD <4 OF FENPIT FEB (NON 

OMS 


SET BORDER TO DOUBLE 


e Bar 
DEFINE MENU EXPIRE MESSAGE ’Position with: 
'+CHR(27)+CHR(26)+’ - <Enter> to select choice es 


DEFINE PAD PAD 1 OF EXPIRE PROMPT "SHOTGUN" AT 7,47 
ON SELECTION PAD PAPE EE Els 

DEFINE PAD PAD 2 OF EXPIRE PRONE) 40CAl GA on 
ON SELECTION PAD PADD 2 OE PXETRE DO ACTOT4 

DEFINE PAD PAD 3 OF EXPIRETEROMPT TOMM ERATES 

ON SELECTION PAD PAD 3 OF EXEITRE DOTACTOL4 

DEFINE PAD PAD 4 OF EXPIRE PROMPT “MIWA IG AT Twa 
ON SELECTION PAD PAD 4 OF EXPIRE DO ACTO014 

2? u u 


SET BORDER TO DOUBLE 


“Da 
DEFINE MENU EXPIRED MESSAGE 'Position w1th: 
'*CHR(27)*CHR(26)*' - <Enter> t6 select choice - «FI mwan 


DEFINE PAD PAD 1 OF EXPIRED PROG? Ti SHO GUN TE 
ON SELECTION PAD PAD 1 OF EXPIRED C= eit 12 
DEFINE PAD PAD 2 OF “EXPIRED PROP Tame Ale Soro one 
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ON SELECTION PAD PAD 2 OF EXPIRED DO ACTO15 

DEFINE PAD PAD 3 OF EXPIRED PROMPT "9MM" AT 8,66 

ON SELECTION PAD PAD 3 OF EXPIRED DO ACTO15 

DEFINE PAD PAD 4 OF EXPIRED PROMPT "M14/16" AT 8,72 
ON SELECTION PAD PAD 4 OF EXPIRED DO ACTO15 

JIJ M" "1 

RETURN 

*-- EOP: MPDEF.PRG 


PROCEDURE 1HELP1 

In key=INKEY() 

ON KEY LABEL Fl 

le popmenu=IIF( "" = POPUP(), MENU(), POPUP() ) 
ACTIVATE WINDOW Helpscr 

SET ESCAPE OFF 

ACTIVATE SCREEN 

UNUS DO CLEAR TO 21,79 

CTO 21,79 COLOR RG+/GB 


@ 24,00 

E 176 SAY "Press any key to continue..." 
ENNAN SAY n" 

DO CASE 

ene lp for menu MEMMAIN 

CASE "MEMMAIN" = lc popmenu 


na 2 SAY "No Help defined." 
Zzuelp for menu REQSSF 
CASE "REQSSF" = Ic popmenu 

@ 2,2 SAY "No Help defined." 
Enelp for menu ROSTER 
CASE "ROSTER" = lc popmenu 

HE? SAY "No Help defined." 
Ehnelp for menu DRILLS 
ASES DRILLS" = Le popmenu 

a 2,2 SAY "No Help defined." 
Help for menu PRINTSFE 
EDI PRINTSF" - lc popmenu 

Qu252 SAY "No Help defined." 
znelp for menu QUALS 
CASE "QUALS" = lc popmenu 

OZ SAY "No Help defined." 
Sep for menu UTILS 
CASE "UTILS" = lc popmenu 

GW2.2 SAY "No Help defined." 
*-- help for menu EXIT 
CASE EXIT" - Ic popmenu 

HuE2.2 SAY "No Help defined." 
IL Help for menu REQSALL 
CASE "REQSALL" = lc popmenu 

C 2,2 SAY "No Help defined." 
fwa help for menu EDREQS 
CASE "EDREQS" = lc popmenu 
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@ 2,2 SAY “Ne Help defined 
*-- help for menu PRNTREQS 
CASE “PRNTREOS “EFE popmenu 

@ 2,2 SAY "No Help defined." 
*-— help for menu PEXPIRE 
CASE "PEXPIRE" = lc_popmenu 

@ 2,2 SAY "No Help defined." 
*-- help for menu PEXPIRED 
CASE "PEXPIRED" = lc popmenu 

0 2,2 SAY. No Help derided. 
ss help fòt menu EXPIRE 
CASE "EXPIRE" = lc popmenu 

@ 2,2 SAY “No Help defined." 
*—— help for menu EXPIRED 


CASE "EXPIRED" = le popmenu 
@ 2,2 SAY "No Help defined.” 
OTHERWISE 


@ 2,2 SAY "Unknown menu name, help was never defined." 
ENDCASE 
In kev=INKEY(O) 
SET ESCAPE Oh 
@ 24,00 
DEACTIVATE WINDOW Helpscr 
ON Key APPS IN DONE 
RETURN 
Ai AE OP ea EE PA 


SS AA AAA SA A SAS SA AAA SA AAA ASS SS AA SA ASA AAA ASA SA AAA AAA A Ak A AAA A A 


X X X X X * X X X X 


x Program ea A AMENAT ERG 

* Author....... Sidney R. sett le FL FT 
AA SEH 

* Notice.......: Written as partial fulfiliment of the 
* dBASE Venue 

* Generated by.: APGENEversion 1m 

* Description..: BAR MENU FOR THE SECURITY FORCE PROG 
* Description... Menurac Cronk 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X k X X X X X Xx X X X X X X X X X X 


X X* X X X X X X k X 


PROCEDURE MEMMAIN 

PARAMETER entryflg 

PRIVATE gc prognum 

gc prognum-"OI1" 

SET COLOR OF NORMAL TTITO WIBE 
CLEAR 

PRIVATE 1c ApGen 

le ApGen=LTRIM(STR(gn ApGen)) 


DO SETO1 
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IF gn error > O 
gn error=0 


RETURN 
ENDIF 
*-- Before menu code 


ACTIVATE MENU MEMMAIN 
pono CLEAR TO 2,79 
Ne After menu 


RETURN 
SEO. MEMMAIN 


Meee DURE SETOL 
NM ET LABEL Fl DO 1HELP1 


DO DBFO1 && open menu level database 


Men error = 0 
MWE! color .AND. .NOT. SET("ATTRIBUTE") zs 
SE BE RG+/GB,N/N "+; 
MEDE CSG)TCHR(SB)+" W+/N,W/E,RG+/GEB, B/W,N/GB" 
SET COLOR OF NORMAL TO W+/B 
SEL COLOR OF MESSAGES TO W+/N 
pel COLOR OF TITLES TO W/B 
spo COLOR OF HIGHLIGHT TO RG+/GB 
Sel COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
po CULOR OF FIELDS TO N/GB 
ENDIF 


SET BORDER TO 

@ 0,0 TO 2,79 DOUBLE COLOR RG+/GB 

EE CLEAR TO 1,78 

Q 1,1 FILL TO 1,78 COLOR W*/N 

Q 1,1 SAY "SF REQS" COLOR W*/N 

Q 1,11 SAY "SF ROSTER" COLOR W*/N 

@ 1,23 SAY "SF DRILLS" COLOR Wt/N 

@ 1,35 SAY "PRINT SF" COLOR Wt/N 

Q 1,46 SAY "QUALIFICATIONS" COLOR W*/N 

E 63 SAY "UTILITIES" COLOR W*/N 
TA SAY "EXIT “ COLOR W+/N 

ENDIF 

RETURN 


PROCEDURE DBFO1 
CLOSE DATABASES 
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*-- Open menu level view/database 
lc message-"O" 
ON ERROR 1c message-LTRIM(STR(ERROR()))*" "+MESSAGE() 
USE MEM INFO 
TE eave 
SET INDEX TO MEM_INFO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
lf One ron D 
DO Pause WITH ; 
"Error opening MEM INFO.DBF or index(es) MEM Thies 
lc_new=’ Y? 
RETURN 
ENDIF 
lc new="Y" 
RELEASE lc message 
RETURN 


PROCEDURE ACTO1 
*-- Begin MEMMAIN: BAR Menu Actions. 
*== (before item, aci won, andwatten item) 
PRIVATE ic new, fe dbf 
le new=’ " 
LEAD SAS 
DO CASE 
CASE “PAD 1” =“FADBO) 

lc_new=?*Y? 

DO REQSSF WITH " O1" 
CASE PAD 2" (PI 

lc new="Y" 

DOSEOSTER WITH soa 
CASE "PAD 3" = PAD() 

KE TNew= YO 

DO DRIES Withee OG 
CASE Pale PAG) 

lc_new=’' Y’ 

DO PRINTSF WILES 3074 
CASE PAD 3” = PADC) 

le new="Y" 

DO QUALS WITH ~ 01" 
CASE “PAD El 

lume wc 

DO UTILS WEFR "OL" 
CASE "PAD 7" = PAD() 

lc news im 

DOS Ro NIBH ON 
OTHERWISE 

@ 24,00 
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pee SAY "This item has no action. Press a key.” 
X= INKEY(O) 
@ 24,00 

ENDCASE 

SET MESSAGE TO 

Preece quit-'Q' 


MWE EET(entryTlg,l) s» "B" 
DEACTIVATE MENU 
EISE 
DEACTIVATE MENU && MEMMAIN 
ENDIF 
ENDIF 


ne w=>" Y? 
lec file="SET"+gc prognum 
DSC file. 

ENDIF 

RETURN 


X X X k X k k k k k k k k X X KK Xk k X k X X Xk X X Xk K k X X k X KJK KK KK KKK KIKK KK KKK KKK 


X X X k X X X X k X 


NE ocram......: REQSSF.PRG 

ZEE UU HOr....... : Sidney R. Settlemyer 

MI wt ee ee es 7-223-91 

MANNIE CÉ 1... ...... : Written in partial fulfillment of thesis 
DASE Ver....: 1.1 

a euerated by: APGEN version 1.3 

X 


Wemeription..: PROVIDES USER WITH THE SECURITY 
HESUSREMENTS FOR HIS SHIP 


muc cription..: Menu actions 
X X X k X X k k X X X X X X X Xk k Xk X X X X X Xk k k X X X k k k k k Xk k k X Xk k k k k X Xk k k k k Xk k k k k k k k k X X 


X X X k X X X X X X 


PROCEDURE REQSSF 
PARAMETER entryfig 
CARATE gc prognum 
gc prognum="02" 


Dome ETO 2 
error > 0 
gn_error=0 


RETURN 
ENDIF 
Sos Before menu code 


ENS ATE POPUP REQSSF 
*-- After menu 


RETURN 
SES EOP REQSSF 
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PROCEDURE SETO? 
ON KEYS DAD Cir DOSES 


DO DBFO2 && open menu level database 


IF gn_error = 0 
IF gl color AND. NOT. SET ATR GENE 
SW BS ROS GB INE 
CHR(38)+CHR(38)+" Wt/N,W/B,RG+/CB, B/W ON GEN 
SET COLOR OE NORMAL TO SWS BP 
SET COLOR OF MESSAGES TO W*/N 
SET COLORTOF TITLES TO WB 
SET COLOR OF HIGHLIGHT TO RG+/GB 
SET COLOR OF BOX TO RG+/GA 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS TON /GB 
ENDIF 
ENDIF 
RETURN 


PROCEDURE DEFO? 
CLOSE DATABASES 
*-- Open menu level view/database 
le message="0" 
ON ERROR le message=LTRIM(STR(ERROR()))+" "+MESSAGEC) 
USE MEM INEO 
TE EDELT) 
SET INDEX TO MEN CUNEO 
ENDIF 
SET ORDER IO LASTE 
ON ERROR 
gn error=VAL(lc message) 
IF gn error > 0 
DO Pause WITH ; 
"Error opening MEM INFO.DBF or index(es) MEM UNIÓN 
he mew a 
RETURN 
ENDIF 
CAT ew= 
RELEASE lc message 
RETURN 


PROCEDURE AC TO? 

"Berlin FEST POP NENNE NRS 

*—— (before 1tem, action, andar ten Abren) 
PRIVATE ES ed 

lc newz' ? 

le dbf=’ ' 

DOSGASE 

CASE BAR() = 1 
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lc new="Y" 

MO REQSALL WITH "BO2" 
CASE BAR() = 2 

lc new='Y' 

mOSEDREOS WITH "BO2" 
PASE BAR() = 3 

ieee mew" Y ’ 

POSERNTREQS WITH "B02" 
ENDCASE 
sr a A GE "TO 
IF gc_quit=’Q’ 


NES EFT(entryflg,1) - "B" 
DEACTIVATE MENU 
ELSE 
DEACITVATE POPUP && REOSSE 
ENDIF 
ENDIF 


ric new='\" 
ta le="SET"+egc prognum 
DOS lc file. 

ENDIF 

RETURN 


X X X X X k X X X X k X X k X k k k X X k X k k X k X k X k X k k Xk k k k X Xk X k k k X X X k k Xk X X X X k X X X k k k 


X X X k k X X X X X 


NN ospPam......- ROSTER.PRG 

NEE au : Sidney R. Settlemyer 

“Mat on m DEDE On 

EE cUce....... : Written in partial fulfillment for thesis 
ASE Ver....: 1.1 

* Generated by.: APGEN version 1.3 

Seeescription..: WILL PROVIDE OPTIONS ON ROSTER INFO FOR 
ALE TTY FORCE 


INES cription..: Menu actions 
X X X X X X X k X k X k X X k X k X A AA X k X k X k X X k X k k k k k k k k k X k X k X k k X X k X X 


X X X X k X X X X X 


PROCEDURE ROSTER 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="03" 


DUETO 3 
error > 0 
gn error=0 


RETURN 
ENDIF 
*-- Before menu code 


peo iVATE POPUP ROSTER 
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T Ae Tem 


RETURN 
SEO. BOSSES 


PROCEDURES BIOS 
ON KEY LABEL TE) oe inert 


DO DBFO3 && open menu level database 


IF gn_error = 0 
IF gl color AND. NOT. SET(CATIRIBUTE 1): 
"W+/B,RG+/GB,N/N "+t; 
CHR(38)+CHR(38)+" W+/N MW/B,RG+/GB,b/ MN CON 
SET COLOR OF NORMAL TO Wł+/B 
SET COLOR OF MESSAGES TO Wt/N 
SET COLOR OF TITLES TTO W/E 
SET COLOR OF HIGHLIGHT COSO Ge 
SET COLOR OF BONN TO EE GE 
SET COLOR OF INFORMATIONS Å 
SET*COUORMOL TP IELDS SOs Ge 
ENDIF 
ENDIF 
RETURN 


PROCEDURE DBFO3 
CLOSE DATABASES 
*-—- Open menu level view/database 
lc message="oO" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
USP evar © 
LE SS <> SURE 
SET INDEXSTO HEME INE O 
ENDIF 
SET ORDER TOMASI NAME 
ON ERROR 
gn error=VAL(lc message) 
IF gn_error > O 
DO Pause WITH ; 
"Error opening MEM INFO.DBF or index(es) MEM Dwe 
lc news'Y' 
RETURN 
ENDIE 
lc news'Y' 
RELEASE lc message 
RETURN 


PROCEDURE ACTO3 
==> begin ROSTER. POPUPENUN SONER 


k-= (before item, action, and after item) 
x 
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PRIVATE lc new, lc dbf 
FE news' ? 
Eccedbfs' ’ 
DO CASE 
aoe BAR() = 1 
PE NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT TO mem_info 
Mw Desc: Browse file - 
BROWSE NOAPPEND NODELETE NOEDIT FORMAT 
eae FORMAT TO 
pe SCOREBOARD OFF 
fies NOT. gl batch 
MO ATtAct 
ENDIF 
Pewee BAR() = 2 
MENW NOT. gi batch 
BO BerAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
Desc: attach format file MEM INEO 
EE FORMAT TO MEM INFO 
APPEND 


Æ Close format file so as not to affect READ's 
ERI FORMAT TO 
eed SCOREBOARD OFF 
ME NOT. gi batch 
DO AftAct 
ENDIF 
EXSESMBAR() = 3 
NOT. gl batch 
DO BefAct 
ENDIF 
eee MESSAGE TO 
m Desc: Report 
SET PRINT ON 
REPORT FORM SFROSTER.FRM PLAIN 
SET PRINT OFF 
Meee NOT. gl batch 
PO ATtAct 
ENDIF 
ENDCASE 
SET A GE TO 
Ec quit-'Q' 
NEGLBEPT(entrytigyb)es "B" 
DEACTIVATE MENU 
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ELSE 
DEACTIVATE POPUP && ROSTER 
ENDIF 
ENDIF 
IF lc new=’Y’ 
[ce file= SET tec prognum 
DO élc file. 
ENDIF 
RETURN 


X X X * X ok X X X X X X X x X X X X X X X X X x x X X X X xk X X X xk X X X X X X X X X X X X X X X X X X X X X X X X X X 


X X X X X X X X X X 


x Prosran FANER NN 
Author..<+.<6.0.: Sidney Ra Stuerenver 
Dater EG EN 
j 02.2: Writtrn in partial fulfillment of Meme 
asker EMI 
Generated by.: APGEN version 1.3 
Description..: ALLOWS USER 10. AG@@es5 DRITE: 


+ + t » > >» 
= 
O 
+ 
P 
© 
(D 


x Description... Menu ac rons 
X X X X X X xXx X ox x xk X X x x x X X X X xk xk X X Xk X X Xk k X X X X X X X X X X X XX X Xk X X X X X X Xk X X X X X X X X X X 


X* X X X X X X X X x 


PROCEDURE DRILLS 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="04" 


DO SETO4 
IF gn errom > 0 
gn error=0 


RETURN 
ENDIF 
*-- Before menu code 


ACTIVATE, POPUP DEITIES 
A== After menu 


RETURN 
toss DR TL S 


PROCEDURE SETO4 
ONEKEY LABELS FI DO THELPI 


DO DBFO4 && open menu level database 
IF gn error = 0 


IF gl color .AND. .NOT. SET("ATTRIBUTE") = 
"W+/B,RGE/GB,N/N "+; 
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CHR(38)*CHR(38)*" W*/N,W/B,RG*/GB,B/W,N/GB" 
SET COLOR OF NORMAL TO W*/B 
SET COLOR OF MESSAGES TO W*/N 
ET COLOR OF TITLES TO W/B 
SET COLOR OF HIGHLIGHT TO RG+/GB 
SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS TO N/GB 

ENDIF 
ENDIF 
RETURN 


PROCEDURE DBFO4 
CLOSE DATABASES 
*-- Open menu level view/database 
lc message="O" 
ON ERROR lc message-LTRIM(STR(ERROR()))*" "*MESSAGE() 
USE MEM INFO 
Pie) <> DBF() 
SEL. INDEX TO MEM INFO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
meenu error > 0 
DO Pause WITH ; 
Mirror opening MEM INFO.DBF or index(es) MEM INFO" 
Lew =>? Y” 
RETURN 
ENDIF 
lc_new=’ Y’ 
RELEASE lc message 
RETURN 


PROCEDURE ACTO4 
man ecin DRILLS: POPUP Menu Actions. 
x—— (before item, action, and after item) 
x 
PRATE ic new, lc _ dbf 
le new=" ? 
| (¢_ Gl ' 
DO CASE 
CASE BAR() = 1 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
Mw dbi-'Y' 
le message="0" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
USE DRILLS 
ON ERROR 
gn error=VAL(lc message) 
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IF gn error fo 
DO Pause WITH ; 
"Error opening DRILUS EFE 
gn error=0 
le file="SET"+gøc prognum 
DO élc file. 
RETURN 
ENDIF 
le new="Y" 
RELEASE lc message 
IF NOT] ele oat on 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT IO-darills 
*-- Desc: Browse «fi fesa An 
BROWSE NOAPPENDNODECETESNOEDITSEORNAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
LEU eNOS =o) ebaten 
DO AftAct 
ENDIF 
CASE TPAR) A:n? 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
1E MADE eee S 
lc messagez"O" 
ON ERROR lc message=LTRIM(STR(ERROR()))t" "+MESSAGE() 
ER 
ON ERROR 
gn error=VAL(lc message) 
JO error A8 
DO Pause WITH ; 
"Error opening DRILCS: DBE; 
gn error=0 
lc file="SET"+gc prognum 
posce 
RETURN 
ENDIF 
le new="Y" 
RELEASE lc message 
IF NOT TeL Datoh 
DO BefAct 
ENDIE 
SET SCOREBOARD ON 
SET MESSAGE TO 
== Desc. attach. Forn mc TS 
SET FORMAT TO DRILLS 
APPEND 
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Es lose format file so as not to affect READ’s 
SET FORMAT TO 
OEI SCOREBOARD OFF 
PR NOT. gi batch 
DO AftAct 
ENDIF 
CASE BAR() = 3 
*-- Open Item level view/database and indexes 
BEOSE DATABASES 
Ip dbf-'Y' 
lc message 
ON ERROR 1c message-LTRIM(STR(ERROR()))*" "*MESSAGE() 
USE DRILLS 
ON ERROR 
gn error=VAL(lc message) 
Men error > O 
DO Pause WITH ; 
Error opening DRILLS. DBF" 
en error=0 
We file="SEI"+tgc prognum 
POS Te file, 
RETURN 
ENDIF 
lc new=’Y' 
HECE ASE ic message 
WE .NOT. gl batch 
DO BefAct 
ENDIF 
Sei MESSAGE TO 
E Desc: Report 
SET PRINT ON 
KORT FORM DRILREP PLAIN 
SeiePRINT OFF 
Meee NOT. gl batch 
po AftAct 
ENDIF 
ENDCASE 
ERR SS AG E TO 
Pesce oguit='Q’ 


- 14 tt 


NN EFT(entryflg,1) - "B" 
DEACTIVATE MENU 
BESE 
DEACTIVATE POPUP éé DRILLS 
ENDIF 
ENDIF 


Ec new-'Y' 
lc_file="SET"+gc_prognum 
PO &lc file. 

ENDIF 

Mele dbf-'Y' .AND. .NOT. lc newz'Y" 
lc file="DBF"+gc_prognum 
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DO flere: 


ENDIF 
RETURN 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X k X X X X X X X X X X x X X X X 


X X X X X X X X X X 


X 


+ % »* e X X 


Program; INES o 

Author.:2:...: Sidney R. Setolemier 

Date.... MUS: ¿2239 

Notice.......: Written in partial fulfillment of @emecre 
dBASE: Ver. CE en 

Generated by.: APGEN version 1.3 

Description..: THIS WILL PROVIDE PRINT OPTIONS FOR ROSTER 


AND REQUIREMENTS 


JA 


Description... : Menu actions 


X X X X k X X X X k X X X X k X X X X X X X X k X X X X X k X X X X X k X X X X X X X X X X X X X X X X k X X X X X X X 


X X X k X X X X X X 


PROCEDURE PRINTSF 

PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="05" 


DO SENOS 
IF gn error > Y 


gn error- o 


RETURN 
ENDIF 
*-—- Before menu code 


ACTIVASESTFOPLE SEE ka E 


x=- After menu 


RETURN 
^» EOR TE RENTS E 


PROCEDURES ot 105 
ON (REYOLABEL Fl DO LHEDPI 


DO DBFO5 446€ open menu level database 


IF gn germ Clg Eno 


IE gi. color `.AND. .NOT., SET STR - 


"W+/B,RG+/GB,N/N "+; 


CHR(38)+CHR(38)+" W+/N,W/B,RG+/GB,B/W,N/GB" 
SET COLOR OF NORMAL TO W+/B 

SET COLOR OF MESSAGES TO W+/N 

SET COLOR OF TITLES E 

SET COLOR OF HIGHLIGHT TO RG*/GB 
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SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS TO N/GB 
ENDIF 
ENDIF 
RETURN 


PROCEDURE DBFO5 
TOSE DATABASES 
*-- Open menu level view/database 
lc message="0" 
ONTERROR lc message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
ESESNMEM INFO 
EM «5 DBF() 
SET INDEX TO MEM INFO 
ENDIF 
EEUSNOURDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
Mon error > 0 
DO Pause WITH ; 
lu rcr opening MEM INFO.DBF or index(es) MEM INFO" 
le new=’Y’ 
RETURN 
ENDIF 
lc new- 
RELEASE 1c message 
RETURN 


WV) 


PROCEDURE ACTO5 
Mwe coin PRINTSE: POPUP Menu Actions. 
E before item, action, and after item) 
PRIVATE Le new, lc dbf 
le new=’ ' 
Romdbr-' ' 
DO CASE 
CASE BAR() = 1 

eme w=>* Y? 

DO PRNTREQS WITH "BOS" 
CASE BAR() = 2 

ENOT. gl batch 

DO BefAct 

ENDIF 

SET MESSAGE TO 

m= Desc: Report 

SET PRINT ON 

REPORT FORM SFROSTER.FRM PLAIN 

SET PRINT OFF 

MEN NOT. gi batch 

DO AftAct 
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ENDIF 
CASE BAR() = 3 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
lc _ dbf=’Y’ 
lc message-"O" 
ON ERROR lc message-LTRIM(STR(ERROR()))*" "«*MESSAGEQ 
USE DRUMS 
ON ERROR 
gn error=VAL(lc message) 
IF gn_error > O 
DO Pause WITH ; 
"Error opening DRILCES. DBP: 
gn error=0 
le file="SEl" tec lprognum 
DORs kc file: 
RETURN 
ENDIF 
|ECHNHEW= 1 
RELEASE lc message 
IFE NOT gi batch 
DO BefAct 
ENDIF 
SE TMIESSACEN TO 
<> WESC. Report 
SET PRINT ON 
REPORT FOR ØDRILREP PLAN 
SET ee RN Orr 
TE NOT EE baech 
DO AftAct 
ENDIF 
CASE BAR() = 4 
le new="Y" 
POPE PIRES NAN BOS: 
CASE BAR() = 5 
legnev- 1 
DO PESCISEEDENTTH CS BUS 
ENDCASE 
SENASA TO 
IF ge quit- Q" 


LPC entry tio.) NER 
DEACTIVATE MENU 
ELSE 
DEACTIVATESPOPUP «A VERINTSE 
ENDIE 
ENDIF 


IF le 3 
le file="5SET "tør prosgnim 
Dole file. 
ENDIF 
IF" Te “ABS AAN, ANO IA CNE 
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Itile-'DBF'*gc prognum 
morse file. 


ENDIF 
RETURN 


X X X X X X X X X k k X X X X X k X k * X X k k k k k k X k X X X X k X X X X k X X k k k k X X X X X X X k k X X X X X 


X X X X X X X X X X 


x 


KK KK KW 


Peegram...... QUADS. RG 

DO... «...: sidney R. Settlemyer 

NIMES. verset 723-91 

) 000 1 um Written in partial fulfillment of thesis 
URBE Ver....: 1.1 

Generated by.: APGEN version 1.3 


Description. .: PROVIDES USER WITH OPTIONS ON VIEWING SMALL 


ARMS QUALS EXPIRING 


x 


Memeription..: Menu actions 


X X X X X X k k X X Xk k X X X X X k X k k k k X X Xk X Xk Xk k k A SAS SA ASA ASA SA kA kA A k X X k X k k X X 


X X X X X X X k X X 


PROCEDURE QUALS 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="06"' 


DOISETOO 
tiem error > 0 


gn error=0 


RETURN 
ENDIF 
== Before menu code 


AGN ATE POPUP QUALS 


x—— After menu 


RETURN 
*-- EOP QUALS 


PROCEDURE SETOO 
OOM EY LABEL Fi DO 1HELP1 


DO DBFO6 && open menu level database 


Meen error = 0 


MENS color .AND. .NOT. SET("ATTRIBUTE") s 


MD) RGT/GD,N/N "+; 


CHR(38)+CHR(38)+" W+/N,W/B,RG+/GB,B/W,N/GB" 
SET COLOR OF NORMAL TO W+/B 

SET COLOR OF MESSAGES TO W+/N 

SET COLOR OF TITLES TO W/B 
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SET COLOR OF HIGHLIGHT MWE, On 
SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS TONI GB 
ENDIF 
ENDIF 
RETURN 


PROCEDURE DBFO6 
CLOSE DATABASES 
*-- Open menu level view/database 
lc _message="0" 
ON ERROR ic message=LTRIM(STR(ERROR()))+" "+#MESSAGHAN 
USE MEM_INFO 
TF “EDE DI 
SET INDEX TO MEM INFO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
IF gn_error > 0 
DO Pause WITH ; 
"Error opening MEM INFO.DBF or index(es) MEM TINEO 
emner I 
RETURN 
ENDIF 
le new="Y" 
RELEASE lc message 
RETURN 


PROCEDURE ACTOO 
x=- Begin QUALS: POPUP Menu Actions. 
*—— (before item, action, and after item) 
PRIVATE ic new, lc dbf 
le new=’ ’ 
lc dbf=’ ” 
DO CASE 
CASE BAR() = 1 

le new="Y" 

DOTWEXETRE With. = BOG” 
CASE BAR() = 2 

lc new="Y" 

DO EXPIREDANITH B06" 
ENDE ASE 
SET MESSAGE TO 
IF gc quit= D. 

IF. LEF Gentry fio wan M5 

DEACTIVATE MENU 
ELSE 
DEACTIVATE POPUP (GP 
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ENDIF 

ENDIF 

meee new='Y’ 
le file="SET"+gc prognum 
price file. 

ENDIF 

RETURN 


SEKK KKK KIKK KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKIKKKKKK KKK KKK KKK 


X X X X A AAA Ak 


EN scram......: UTILS.PRG 

EEUUUCHOr.......: Sidney R. Settlemyer 

re... 7-23-91 

NS e e e e e A Written in partial fulfillment of thesis 
EP CE Ver....: 1.1 

* Generated by.: APGEN version 1.3 

perme ripction..: ALLOWS USER TO SELECT UTILITIES FROM MAIN 
MENU 

MN seription..: Menu actions 


ASSA ASSA SS SA AA A AAA A k X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


X X X X X X X X X X 


PROCEDURE UTILS 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="07" 


BEN SETO? 
Meen error > 0 
gn error=0 


RETURN 
ENDIF 
= before menu code 


merivATE POPUP UTILS 
I rtter menu 


RETURN 
ESSI UP UTILS 


PROCEDURE SETO7 
ON KEY LABEL Fi DO 1HELP1 


DO DBFO7 && open menu level database 
Es error - O 
meel color „AND. «NOT. SET("ATTRIBUTE") = 


ME BD) RGF/GB,N/N "+; 
MIES PCHROSO JE Wt/N,W/B,RGTt/CGB,B/W,N/GB" 
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SET COLOR OF NORMAL TO W+/B 
SET COLOR OF MESSAGES TO W+/N 
SET COLOR OF TITLES TO W/B 
SET COLOR OF HIGHLIGHT TO RG+/GB 
SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS TO N/GB 

ENDIF 
ENDIF 
RETURN 


PROCEDURE DBFO7 
CLOSE DATABASES 
*-- Open menu level view/database 
lc message="oO" 
ON ERROR 1c message=LTRIM(STRCERROR()))+" “+MESSAGE() 
US ESN EK Nr 
PE eo DBF) 
SELSINDEX DO HEUS DNEO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
IF gn error > O0 
DO) Pause Wilh; 
"Error opening MEM INFO.DBF or index(es) MEM TINDE 
lc new=’Y’ 
RETURN 
ENDIF 
¡A O 
RELEASE lc message 
RETURN 


PROCEDURE ACTO? 
A O A o 
== (before item, action, and after 1tvem 
PRAM NC nen, Ca 
lc_new=’ ’ 
lc abi m 
DO CASE 
CASE BAR() = 1 

IRE sr batch 

DO BefAct 

ENDIF 

SEL MESSAGE TO 

RUN DATE 


IF .NOT. gl batch 


DO AftAct 
ENDIF 
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CASE BAR() = 2 
ME .NOT. gi batch 
DO BefAct 
ENDIF 
we MESSAGE TO 
fone COPY MEM INFO.» 


ME NOT. gl batch 
DO VAL TACT 

ENDIF 

CASE BAR() = 3 

ieee NOL. gl batch 
DO BefAct 

ENDIF 

Sei MESSAGE TO 

RON COPY *.* A: 


mie. NOT. gli batch 
DO AftAct 
ENDIF 
CASE BAR() = 4 
Ser EXCLUSIVE ON 
lc message="0" 
DE KOR lc message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
USES MEM INFO 
jm" <> DBF() 
ENDEX TO MEM- INFO 
ENDIF 
Ser ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
ME gn error > 0 
DO Pause WITH ; 
rror opening MEM INFO.DBF or index(es) MEM INFO" 
gn_error=0 
lc file="SET"+gc_prognum 
BO «le file. 
RETURN 
ENDIF 
le new="Y" 
RELEASE Ic message 
ET EXCLUSIVE OFF 
MEN NOT. gl batch 
DO BefAct 
ENDIF 
SET MESSAGE TO 
le say-'Reindexing Database... 
We -anfo box WITH ic say 
SET TALK ON 
REINDEX 
SET TALK OFF 


J5 


LE NOTE IN Ban chi 
DO AftAct 
ENDTE 
ENDCASE 
SET MESSAGE TO 
IP go que yon 


IFRS NE nn 
DEACTIVATE MENU 
ELSE 
DEACTIVATE- POPUP ea Tres 
ENDIF 
ENDIF 


IF lc new="Y" 
le filé= SET Før prosnn 
DO &lc file: 

ENDIE 

RETURN 


X X X X X X 0X X X X X X X X X X X X X Kw X X X X X X X X 


X X X X* *X X X X X X 


s Propranv: MEME 

VAuthbor..+ ++ a SIL dney R. Settlemyer 

x Date a e e a a al 

AN DIE cog a > Written in partial fulfillment of thesis 
* “GiB Ato Boe \ Cae venn L 

* Generated by.: APGEN version 1.3 

* Description..: WILL ALLOW" USER TO EXIT SECURITY Si w 
“ADeseription ...; «Menytactunons 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X& X X X X X X X X X X X X X* X X X Xx X X X X X Xx X X x X 


AAA AAA A * x 


PROCEDURE EXIT 
PARAMETER entryflg 
PRIVATE gc pregnun 
gc prognum="08" 


DO SETO8 
IF gn error > 0 
gn error=0 


RETURN 
ENDIF 
*-- Before menu code 


ACTIVATE SET 


k-- After menu 


RETURN 
^ c SEGMENT 
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PROCEDURE SETO8 
MINE LABEL F1 DO 1HELP1 


DO DBFO8 66 open menu level database 


Bien error = 0 
Mel color AND, .NOT. SET("ATTRIBUTE") s 
ELS D,RG+/GB,N/N "+; 
MARIS) +CHRCIS)+" W+/N,W/B,RG+/GB,B/W,N/GB" 
SET COLOR OF NORMAL TO W+/B 
SET COLOR OF MESSAGES TO W+/N 
SET COLOR OF TITLES TO W/B 
SET COLOR OF HIGHLIGHT TO RG+/GB 
SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
SET COLOR OF FIELDS TO N/GB 
ENDIF 
ENDIF 
RETURN 


PROCEDURE DBFO8 
CLOSE DATABASES 
*-- Open menu level view/database 
le message="oO" 
ON ERROR 1c messagesLTRIM(STR(ERROR()))*" "*MESSAGE() 
USE MEN INFO 
NEM ^ DBF() 
med INDEX TO MEM INFO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
MIS error > 0 
DO Pause WITH ; 
ME or opéning MEM INFO.DBF or index(es) MEM INFO" 
lc_new=’' Y’ 
RETURN 
ENDIF 
Eev ' Yo 
KENME ASE lc message 
RETURN 


PROCEDURE ACTO8 

Meee in EXIT: POPUP Menu Actions. 

I1 before item, action, and after item) 
x 

EISEUATE ic new, Ic dbf 

lc_new=?’ ' 

lc_dbf=’ ' 

DO CASE 

CASE BAR() = 1 


97 


*-—- Return ton caller 

gce qulit= Q: 

IF LEFIT(entryílg, i)m. m 
DEACTIVATE POPUP && EXIT 

ELSE 
DEACTIVATE MENU 

ENDIF 

RETURN 


CASE BAR() = 2 


*-- Quit dBASE 
CLOSE DATABASES 
QUIT 


ENDCASE 
SET MESSAGE LY 
IE.gé qui t= on 


IF LEFT (entryflg,1) = "B" 
DEACTIVATE MENU 
ELSE 
DEACTIVATE POPUP éé EXIT 
ENDIF 
ENDIF 


IF le new=’Y’ 


lc file="SET"+gc prognum 
po «le. file. 


ENDIF 
RETURN 


X X X X X X X X X X KR RR KR KERR KR X KAR k X X KR Xk k X X X X Xk k k k k X X X X k RA k RA k k Xk Xk k Xk k A k KER RAK EK 


X * X X k X k k k X 


* 


NM »* »* » X+ » 


X 


Program... RES Aca 

AULHOP imi... oss Sldmes Re Seu enyen 

Dates ta Oe 

Notice.......: Written in partial fudfillment ofa 
ABASE veria Lol 

Generated by.: APGEN version 1.3 

Description..: DISPLAYS OPTIONS FOR SF REQUIREMENT: 
Description Meni acerous 


X X X X X X Mk Ak X RA X X X X X X X X X X Xx X X X X X X X X X X Xx X X X X X X X X X X X Xx x X ok X X X X X X X* X X k X X 


kok R X X X k k X X 


PROCEDURE REQSALL 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="09" 


DO SETO9 
IF gngerror YO 


gn_error=0 


RETURN 
ENDIF 
*-- Before menu code 


98 


ACTIVATE MENU REQSALL 
SEO CLEAR TO 8,79 
ker After menu 


RETURN 
*-- EOP REQSALL 


EEGGEBERE SETO9 
OR EY CABEL F1 DO 1HELP1 


DO DBFO9 && open menu level database 


meon error = 0 
MWE! color .AND. .NOT. SET("ATTRIBUTE") = 
Stee by, RGt/GB,N/N “+; 
CHR(38)+CHR(38)+" W+/N,W/B,RG+/GB,B/W,N/GB" 
SET COLOR OF NORMAL TO Wt/B 
SET COLOR OF MESSAGES TO Wt/N 
ETE COLOR OF TITLES TO W/B 
SOLØR OF HIGHLIGHT TO RG+/GB 
med COLOR OF BOX TO RG+/GB 
Per COLOR OF INFORMATION TO B/W 
Pel COLOR OF FIELDS TO N/GB 
ENDIF 


SET BORDER TO 

@ 6,0 TO 8,79 DOUBLE COLOR RG+/GB 

@ 7,1 CLEAR TO 7,78 

@ 7,1 FILL TO 7,78 COLOR W+/N 

G 7,1 SAY "SAT REQS" COLOR W+/N 

@ 7,12 SAY "BAF REQS" COLOR W+/N 

@ 7,23 SAY "RESFOR REQS" COLOR W+/N 
@ 7,37 SAY "AUGFOR REQS" COLOR W+/N 
7,51 SAY "DRILL REQS" COLOR W*/N 

7,64 SAY "EXIT" COLOR W+/N 


oe 


ENDIF 
RETURN 


PROCEDURE DBFO9 
CLOSE DATABASES 
*-- Open menu level view/database 
lc message="0" 
ON ERROR 1c message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
SIB REQUIREM 
ON ERROR 
gn error=VAL(lc message) 
meen error > O 
DO Pause WITH ; 
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Error opening REOUTREN DER 
le new="Y" 
RETURN 

ENDIF 

le new=’Y’ 

RELEASE lc message 

RETURN 


PROCEDURE ACTO9 
*-— Begin REQSALI: BAR Meni esans. 
^-- (before item, action, and after item) 
x 
PRIVATE lc new, lc dbf 
lc new=' ' 
Ic-dbrez' ’? 
DO CASE 
CASE “PAD 1 PADO 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
le dabi- 1° 
lc message= 000 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "+MESSACE 
USE REQUIRE 
ON ERROR 
gn error-VAL(lc message) 
VE en- error” wv 
DO Pause WITH ; 
“Error openinge REOUIREN. DBE 
gn_error=0 
lc file="SET"+gc_prognum 
porselen er 
RETURN 
ENDIE 
Ve anew 
RELEASE 1c message 
E NOT Ye Lebar 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT TO satreqs 
== Desc, Browse file - REOUITREN 
BROWSE NOMENU NOAPPEND NODELETE NOEDIT FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
TE Ne gi batch 
DO AftAct 
ENDIF 
GASE PAD 2" <=) PAD() 
IF .NOT. gl batch 
DO BefAct 
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ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
Se EORMAT TO bafreqs 
ME Desc: Browse file - 
BROWSE NOMENU NOAPPEND NODELETE NOEDIT FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
ieee NOT. gl batch 
DO AftAct 
ENDIF 
CASE "PAD 3" = PAD() 
meee NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT TO resreqs 
Rc Desc: Browse file - 
BROWSE NOMENU NOAPPEND NODELETE NOEDIT FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
MENOT. gl batch 
DO AftAct 
ENDIF 
CASE "PAD 4" = PAD() 
MENOT. gi batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
Se MESSAGE TO 
SET FORMAT TO augregs 
Æ Desc: Browse file - 
BROWSE NOMENU NOAPPEND NODELETE NOEDIT FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
MES. NOT. gl batch 
DO AftAct 
ENDIF 
ore PAD 5" = PAD() 
IF .NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT TO drireqs 
Æ Desc: Browse file - 
BROWSE FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
MENOT. gl batch 
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DO AftAct 


ENDIF 
CASE PAD 6 = PAD) 
== RE CUINA ca er 
gc. uds 
DEACTIVATE MENU && REQSALL 
RETURN 
OTHERWISE 
@ 24,00 
@ 24,21 SAY "This item has no action. 
x=INKEY(0) 
@ 24,00 
ENDCASE 


SET MESSAGE TO 
LESgCEquriIT- 0 


IFALEFT(entryfle l) =- p: 
DEACTIVATE MENU 
ELSE 
DEACTIVATE MENU && REQSALL 
ENDIF 
ENDIF 


IF le newr'Y' 
le file="SET"+gc prognum 
DO Wicca? ike: 

ENDIF 

RETURN 


Press a key." 


a A a AAA SA Sa AAA AAA ASA ASSA SA Sa aa a a OX 0ÀR OX OR OX X X X A X X X X X X IA 


X A X X X X Xx Xx hà A 


“ Progranm......: DDEEOSCPRG 

LAU e Sidney R. Setilemver 
a AD > N uc 2d 

* M UC T esc. Written 

= “Cee A oh. EE 

* Generated bø. : MPGEMiversion 1.3 


DESC 1.1 Oye 


* Description..: Menu actions 


in partial fulfillment for thesis 


ALLOWS USER TO EDIT SSP REQUIRENENIE 


X X* X X X X X Aa a AWA AAA a AAA AAA Aa ASA aa AAA ASA SA SA A Wa aa Aa aa AA a a 


* X À& & X XX X X * X 


PROCEDURE EDREQS 
PARAMETER entryflg 
PRIVATE gc prognum 
gc Prognum="010" 


DO SERGIO 

IF gn EkROT ? 0 
gn error=0 
RETURN 

ENDIF 


= 


Before menu code 
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BOIDDVATE MENU EDREQS 
free CLEAR TO 9,79 
Ma After menu 


RETURN 
*-- EOP EDREQS 


EWO E DURE SETO10O 
ENSE LABEL F1 DO IHELPi 


DO DBFO10 && open menu level database 


IF gn_error = 0 
ME li color .AND. .NOT. SET("ATTRIBUTE") s 
MANZE, RGT+/GB,N/N "+; 
EE SE Y+CHR(S38)+" W+/N,W/B,RG+/GB,B/W,N/GB" 
ER OLOR OF NORMAL TO Wt/B 
pel COLOR GF MESSAGES TO Wt/N 
CE OLOR Ol TITLES 10 W/B 
BEI COEOR OF HIGHLIGHT TO RG+/GB 
CE C OLOR OF BOA TO RG+/GB 
DET COLOR OF INFORMATION TO B/W 
ET OLOR OF FIELDS TO N/GEB 
ENDIF 


TI BORDER TO 

aoe. 9.79 DOUBLE COLOR RGt7GB 
pool CLEAR TO 8,78 

I FILL I0 8.78 COLOR Wł/N 

E SAY "SAT REQS" COLOR Wt/N 
om? SAY "BAF REQS" COLOR Wt/N 
ap 5 SAY "RESFOR REQS" COLOR W*/N 
or? SAY "AUGFOR REQS" COLOR W+/N 
fee! SAY "DRILL REQS” COLOR WHt/N 
HOS SAY "EXIT" COLOR W+/N 


DD DDD D 


E 
ENDIF 
RETURN 


PROCEDURE DBFO10 
CLOSE DATABASES 
x-- Open menu level view/database 
le message="0" 
ERROR Ic message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
Poe MEM INFO 
meee <> DBFE() 
DEA INDEX TO MEN INFO 
ENDIF 
ET ORDER TO LASTNAME 


103 


ON ERROR 

gn error=VAL(lc message) 

lEFgni error e 
DO Pause WITH ; 
"Error opening MEM_INFO.DBF or index(es) MEM NEN 
lenen e 
RETURN 

ENDIF 

lc new=’Y’ 

RELEASE lc message 

RETURN 


PROCEDURE ACT010 
*—- Begin EDREOS: -BAR Meenuta t Ons: 
*==; (before item, actions and alter iten) 
PRIVATE lc rever 
lc new- 
lic DAS 
DO CASE 
CASE PA DSI" PN) 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
le dbf="Y" 
lc _message="0" 
ON ERROR 1c_message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
USE REQUIRE! 
ON ERROR 
gn error=VAL(lc message) 
IF Tem error > 0 
DO Pause WEHT; 
"Error opening REQUDRE on 
gunu_error=0 
le tile-"SET"*tgc prossime 
DOCS tale: 
RETURN 
ENDTE 
Le new=” y’ 
RELEASE lc message 
DE autre ech 
DO Eech 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT TO satreqs 
x—-- Desc: Browse file - REQUIREM 
BROWSE FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
IF .NOT. gl- batch 
DO AMC 
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ENDIF 
GADE PAD 2" = PAD() 
*-- Open Item level view/database and indexes 
(TOSE DATABASES 
emabi=’ Y’ 
lc message="0" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
CET REQUIREM 
ON ERROR 
gn error=VAL(lc message) 
En error » O 
DO Pause WITH ; 
"Error opening REQUIREM.DBF" 
gn error=0 
le file="SET"+gc prognum 
DOS Tc file. 
RETURN 
ENDIF 
le new="Y" 
RELEASE lc message 
MW NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
OFI T FORMAT TO bafreqs 
Æ Desc: Browse file - REQUIREM 
BROWSE FORMAT 
CET FORMAT TO 
SET SCOREBOARD OFF 
M NOT. gl batch 
DO AftAct 
ENDIF 
oe PAD 3" = PAD() 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
lc dbf-'Y' 
lc message="O" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "+MESSAGEC) 
UE REQUIREM 
ON ERROR 
gn error=VAL(lc message) 
MWEN error > 0 
DO Pause WITH ; 
METror opening REQUIREM. DBF” 
gn error=0 
Nc le= SET"'+gc progmum 
DO &lc file. 
RETURN 
ENDIF 
le new="Y" 
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RELEASE lc_message 
IF .NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
SET FORMAT TO resreqs 
*-- Desc: Browse file - REQUIREM 
BROWSE FORMAT 
SET FORMAT 
SET SCOREBOARD OFF 
TE ..NOT “egi Dated 
DO AftAct 
ENDIF 


CASE “PAD 4" = PAD() 


*-- Open Item level view/database and indexes 
CLOSE DATABASES 
ered bt =i. 
lc message="0" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "“+MESSAGE() 
USESKEQUIREN 
ON ERROR 
gim err or VAL(Ic message) 
IETen 9 
DO Pause WITH ; 
"Error opening REQUIREM DERK 
EECHER 
le file="SET"+gc prognum 
DO &le file. 
RETURN 
ENDIF 
le new=’Y’ 
RELEASE lc_message 
LE ee 
DO BefAct 
ENDTE 
SET SCOREBOARD ON 
SET NESSAGCGE TO 
SET FORMAT TO augreqs 
=- Desc: Browse file > REQUIRE 
BROWSE FORMAT 
SETOFORMAT TO 
SET SCOREBOARD. OFF 
RES NON gi patch 
DO AftAct 
ENDIF 


CASE "PAD_5" = PAD() 


*-- Open Item level view/database and indexes 
CLOSE DATABASES 

Ke dun an 

lc message="0" 
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GRA ERROR Ic message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
USE REQUIREM 
ON ERROR 
gn error=VAL(lc message) 
INNER error > 0 
DO Pause WITH ; 
"Error opening REQUIREM. DBF" 
gn error=0 
Mot ile="SET"+gc prognum 
nc file. 
RETURN 
ENDIF 
lc_new=’ Y’ 
RELEASE lc message 
EE NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
A MESSAGE TO 
SEN FORMAT TO drireqs 
Æ Lesc: Browse file - REQUIREM 
BROWSE FORMAT 
SET FORMAT TO 
SET SCOREBOARD OFF 
BN NOT. gl batch 
DO AftAct 
ENDIF 
ree PAD 6" = PAD() 
Return to caller 
Pemaquit=’Q’ 
DEACTIVATE MENU && EDREQS 
RETURN 
OTHERWISE 
@ 24,00 
uu +,21 SAY "This item has no action. Press a key." 
x=INKEY(0) 
@ 24,00 
ENDCASE 
SET MESSAGE TO 
IF gc_quit=’Q’ 


MENL EFT (entryflg,1) = "B" 
DEACTIVATE MENU 
BLSE 
WEACTIVATE MENU && EDREQS 
ENDIF 
ENDIF 


e news'Y' 
Mont ile="SET"tge prognum 
DO &lc file. 
ENDIF 
EXEC dbf- Y' .AND. .NOT. lc new-'Y' 
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lc_file="DBF"+gc_ prognum 
DO &lc file. 

ENDIF 

RETURN 


X X X X X X X X X X X X X X X X X k k k k X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


X X X X X X X X X X 


* Program...) URN TRE OS ete 

A ANCHO le ae eee : Sidney R. Settlemyer 

Date ee Ea MEG 

* Notice.......: Written in partial fulfillment For DN 
* XUBASE Ven alt 

* Generated by.: APGEN version 1.3 

x 


Description..: WILL ALLOW USER TO PRINT SPECIFR an 
RQUIREMENTS 


^ Description. Menu action 


X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X k X X X X X k k X X X X X X X X X 


XX KKK KK KKK 


PROCEDURE PRNTREQS 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="011" 


DO SE TOMA 
IF gn error’ 0 
gn erinor= u 


RETURN 
ENDIF 
*-- Before menu code 


ACTIVATE MENU PRNTREQS 
a 8,0 CLEAR TOMIO, G2 
x= AE FEN 


RETURN 
*== BO Nhe 


PROCEDURES SET 01 1 
ONWEET “EABEL EL DOMIHELEI 


DO DBFO11 && open menu level database 


IF gn error = O 
IF gl color-.AND. .NOT., SET(MWT TE INC TE SE 
"W+/B,RG+/GB,N/N "+; 
CHR(38)+CHR(38)+" VEN WU DR OR NON 
SET COLOR OF NORMAL TO h+/B 
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ær i 


SPOR OF MESSAGES TO Wen 

EO COCOR OF TITLES TO W/B 

EETWEOTOR OF HIGHLIGHT TO RG+/GB 

SET COLOR OF BOX TO RG+/GB 

See COLOR OF INFORMATION TO B/W 

CEL COLOR OFP FIELDS TO N/GB 
ENDIF 


SET BORDER TO 

@ 8,0 TO 10,62 DOUBLE COLOR RG+/GB 

a) 1 CLEAR TO 9,61 

@ 9,1 FILL TO 9,61 COLOR Wt/N 

@ 9,1 SAY “SAT REQS" COLOR W+/N 

@ 9,12 SAY "BAF REQS" COLOR W+/N 

Q 9,23 SAY "RESFOR REQS" COLOR W+/N 

@ 9,37 SAY "AUGFOR REQS" COLOR W+/N 
@ 9,51 SAY "DRILL REQS" COLOR W+/N 

ENDIF 

RETURN 


PROCEDURE DBFO11 
CLOSE DATABASES 
*-—- Open menu level view/database 
lc message="oO" 
GNMERROR le message=LTRIM(STR(ERROR()))+r" "+MESSAGE() 
USESMEM INFO 
NL U^ DBF() 
See INDEX TO MEM INFO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
mant error > 0 
DO Pause WITH ; 
error opening MEM INFO.DBF or index(es) MEM INFO" 
B new-'Y' 
RETURN 
ENDIF 
le new=’Y’ 
KEDEASE lc message 
RETURN 


PROCEDURE ACTO11 

Begin PRNTREQS: BAR Menu Actions. 

= (before item, action, and after item) 
PRIVATE ic new, lc dbf 

reese w 7 ' 

Memabi=" ' 

Oe CASE 

CASE "PAD 1" = PAD() 
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*-- Open Item level view/database and indexes 
CLOSE DATABASES 
kè. ObDITE We 
lc message-"O" 
ON ERROR 1c message-LTRIM(STR(ERROR()))*" "+MESSAGE() 
USE REQUTREM 
ON ERROR 
gn error=VAL(lc message) 
If gn error TAO 
DO Pause WITH ; 
“Error opening REQUIRED 
gn error=0 
lc file="SET"tgc_ preognum 
DOMETC file: 
RETURN 
ENDIF 
ilc_new=’'Y’ 
RELEASE lc_message 
LES NOT gli Dareh 
DO BefAct 
ENDIF 
SET MESSAGE TO 
*--— Desc: List [<param 
CLEAR 
SET PRINT ON 
DISPLAISALLS FIELDS Sar 
SETFPRINT OFF 
Me NON e ba cel 
DO AftAct 
ENDIF 


CASE "PAD 2" = PAD) 


*-- Open Item level view/database and indexes 
CLOSE DATABASES 
CUAD AS 
lc message="0" 
"ON ERROR 1c message=LTRIM(STR(ERROR()))+" "MESSAGE 
USE REQUIREN 
ON ERROR 
gn error=VAL(lc message) 
IF gn errori > 0 
DO Pause WITH ; 
"Error opening REQUIREM. DBE” 
gn error=0 
lc_file="SET"+gc_prognum 
DOSC Tire: 
RETURN 
ENDILE 
lc _ new=’Y’ 
RELEASE lc message 
IP Fe Ba ten 
DONNERA 
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ENDIF 
IT MESSAGE TO 
MET Desc: List [(parameters»] 
CLEAR 
SET PRINT ON 
Meer LAY ALL FIELDS baf 
fee PRINT OFF 
eee NOT. gl batch 
DO AftAct 
ENDIF 
O FAD 3" = PAD() 
*-— Open Item level view/database and indexes 
CLOSE DATABASES 
Ewdbf-'Y' 
MEN message="o" 
ON ERROR lc _ message=LTRIM(STR(ERROR()))+t" "+MESSAGE() 
MWE REQUIREM 
ON ERROR 
gn error=VAL(Ic message) 
MWEN error > 0 
DOT Pause WITH ; 
Eann or opening REQUIREM. DBF" 
gn error=0 
IMenfile= SET'+gc prognum 
Miele file. 
RETURN 
ENDIF 
le new="Y" 
RELEASE lc message 
ieee NOT. gl batch 
DO BefAct 
ENDIF 
Sel MESSAGE TO 
mee Desc: List [<parameters>? |} 
CLEAR 
SET PRINT ON 
MME PLAY ALL FIELDS resfor 
SENS PRINT OFF 
MES NOT. gl batch 
DO AftAct 
PNDIF 
ESSEN PAD 4" - PAD() 
*-- Open Item level view/database and indexes 
CLOSE DATABASES 
dbf =’ Y’ 
le message="0" 
UNMEERROR lc message=LTRIM(STR(ERROR())) +" "+MESSAGE() 
UCE REQUIREM 
ON ERROR 
gn error=VAL(lc message) 
WE gn error » 0 


DUI 


DO Pause VITH ; 
“Error opening REQUI REM SDBE- 
gn error=0 
ke Ja le= SET "+gec proguun 
DO. lc rer. 
RETURN 
ENDIF 
lc news'Y' 
RELEASE lc message 
IF ¿NOTA Sl batch 
DO BetAct 
ENDIF 
SET MESSAGE TO 
t-- Desc: List <parme rs | 
CLEAR 
SELAPRINT ON 
DiSRlewi ALL FIELDS austor 
JET PRINT- OPF 
IF .NOT., l »batak 
DO AttAct 
EN DIE 


CASE” “RAD.5,. #==PADL ) 


*-- Open Item level view/database and indexes 
CLOSE DATABASES 
le dbf="Y" 
lc message="0" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "*MESSAGE() 
USE REQUIREM 
ON ERROR 
gn error=VAL(1lo message) 
LE @a_trror 2 0 
DO Pause AIR 
"Error opening REQUIREM. DBF" 
gn error=Q 
legsfi les "SET"*tad prognum 
DUE Pide. 
RETURN 
BND I F 
lc new='y' 
RELEASE le message 
IF MOM. Val “tate 
DO BeraAct 
ENDIF 
SET MESSAGE TO 
*--*Desc: List [<parambuers>|] 
CLEAR 
SET PRINT ON 
DISMA ALL FIELDS sů drills 
SET BRINT OFF 
LE .MÓL. s! batch 
DO AftAct 


ENDIF 


OTHERWISE 


@ 24,00 

MWA, 21 SAY "This item has no action. Press a key." 
x=INKEY(0) 

a 24,00 


ENDCASE 
Seer ESDAGE TO 
Esc quit='Q' 


IF LEFT(entryflg,1) = "B" 
DEACTIVATE MENU 
ELSE 
DEACTIVATE MENU && PRNTREQS 
ENDIF 
ENDIF 


Nc new=' Y? 


Meetile="SEIT"+ge prognum 
megle file. 


ENDIF 
NEC dbfs'Y' AND. NOT, le new=’Y’ 


le file="DBF"+gc prognum 
MOST file. 


ENDT F 
RETURN 


X X X * x ox x x ox x x X* x X ox X ox x X X X x 0X 0x Xx 0X X 00x X 0X KKK KAKA Ke ea X X Xk X X X X X X X X x 


X X X k X X * X k X 


* 


e+ Xx+ X X X 


x 


Ec ram......: PEXPIRE.PRG 

ENNNOP........ Sidney R. Settlemyer 

MAN. ......,: 7-23-91 

Ee. .......:. Written in partial fulfillment of thesis 
fen Ver....: 1.1 


Generated by.: APGEN version 1.3 
Weseription..: 


Mescription..: Menu actions 


AAA AAA AA AAA KA AA kA A kA A A AAA Ak SAS ASA AAA AA AAA AS Ak AA kA A AAA A A AA AAA AA A 


X X * k X X X X X X 


Pro SE DURE PEXPIRE 
PARAMETER entryflg 
PRIVATE gc prognum 
gc prognum="012" 


Ome tO 1 2 
Meee error > 0 


en error=0 


RETURN 
ENDIF 
*-- Before menu code 
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ACTIVATE MENU PEXPIRE 
o 9,3594 DES MENM 66 
^-- Af Cer menu 


RETURN 
== TE UE PEE 


PROCEDURE SETO12 
ON KEY LABER DOT HEN 


DO DBFO12 && open menu level database 


IF gn_ error = 0 
IF gl. color AND. NOT SETAA GERI BUTE DNE 
"WT DR GB NE 
CHR(38)+CHR(38)+" Wt/N,W/B,RGt/GCB, B/W Ny Go. 
SET COLOR OF NORMAL TO Wt/B 
SET COLOR OF MESSAGES TO Wt/N 
SET -COLOR OE TITLES TO MAE 
SET COLOR OF HIGHLIGHT TO RG+/GB 
SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/h 
SEE COLOR OF FIELDS TORNY CD 
ENDIE 


SET BORDER TO 


@ 9,35 TO 11,66 DOUBLE COLOR RG+/GB 

@ 10,36 CLEAR TO 10.65 

@ 10,36 FILL TO 10,65 COLOR W+/N 

@ 10,36 SAY "SHOTGUN" COLOR k+/N 

Q 10,46 SAY "45CAL" COLOR W+/N 

@ 10,54 SAY "9MM" COLOR W+/N 

@ 10,60 SAY "M14/16" COLOR W+/N 
ENDIF 


RETURN 


PROCEDURE DBFO1 2 
CLOSE DATABASES 
*-- Open menu level view/database 
le message="0" 
ON ERROR lc message-LTRIM(STR(ERROR()))*" "*MESSAGE() 
USE MEM INFO 
IF rE C) 
SETANDEX TO MEM CINES 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
IF gn error mg 


DO Pause WITH ; 
E ror opening MEM INFO.DBF or index(es) MEM INFO" 
le new=’Y' 
RETURN 
ENDIF 
LÈ new=’Y’ 
RELEASE lc message 
RETURN 


PROCEDURE ACTO12 
*-- Begin PEXPIRE: BAR Menu Actions. 


*-~ (before item, action, and after item) 
x 


PRIVATE lc new, lc dbf 


lc new=’ °’ 

dE =>"? 

DO CASE 

Geom PAD 1" = PAD() 
ME NOT. gl, batch 

DO BefAct 

ENDIF 
Set MESSAGE TO 
E Desc: Report 
See FILTER TO SHTGN DATE<=DATE()-320 
GOTO TOP 


SET PRINT ON 
eee ORT FORM SPEXPIRE PLAIN 
eel PRINT OFF 
ete FILTER TO 
meee NOT. gl batch 
DO AT CACI 
ENDIF 
oes PAD 2" = PAD() 
WA NOT. gl batch 
DO BetfAct 
ENDIF 
pet MESSAGE TO 
m Desc: Report 
SENA FILTER TO F45 DATE<=DATE()-320 
GOTO TOP 
SET PRINT ON 
PeEORT FORM FPEXPIRE PLAIN NOEJECT 
seae PRINT OFF 
SET FILTER TO 
MWE NOT. el batch 
DO ATTACI 
ENDIF 
GADE “PAD 3" = PAD() 
meee NOT. gl batch 
DO BefAct 
ENDIF 
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SET MESSAGE 
x—- Desc Repon 
SET FILTER TO EFE9MM DATE SINN 
GOTO TOP 
SET PRINT ON 
REPORT FORM NPEXPIRE PLAIN NOEJECT 
SET PRINIT OFE 
SET FILTER TO 
IF «NOT. giibacch 
DO AftAct 
ENDIF 


CASE "PAD 4" = PAD() 


IF NOP gl baten 
DO BefAct 
ENDIF 
SE MESSAGE SIO 
<== Desc: Report 
SET FILTER TO M14 16DATEK=DATE() “wo 
GOTO STOP 
SET PRINT ON 
REPORT FORM PEPE PENE EET 
SET PRINT OFF 
SET FILTERS TO 
IE Ee 
DO AftAct 
ENDIF 


OTHERWISE 


@ 24,00 

a 24,21 SAY "This item has no action. Press a ke n 
x=INKEY (0) 

@ 24,00 


ENDCASE 
SETE SET 
IF ge quit= q: 


IF LEFT (entryflg,1) = "B" 
DEACTIVATE MENU 
ELSE 
DEACTIVATE MENU && PEXPIRE 
ENDIF 
ENDIF 


IF lc news'Y' 


lc files" SET"*tgc progimam 
DOSS ic iia tes 


ENDIF 

RETURN 

X X X X X X X X X X X X X X X X X X X X X X X* *x X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 
X X Xx X Xx Xx X X X X 

e Program... PFPEXPIREDYPRG 

* AU DOr Nc : Sidney R. Settlemyer 

Hate: EO OI 

* Notice.......: Written in partial fulfillment of GNE 
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BASE Ver....: 1.1 
* Generated by.: APGEN version 1.3 
mebescription..: 


EU -cription..: Menu actions 
X X X X X X X X X Xk k X X Xk X X X k k X X X X X X X k k X X X Xk k k X k k Xk Kk k Xk Xk Xk Xk X xk kk k Xk KK KK KK KK KKK 


X X X X X X k k X X 


Poe DURE PEXPIRED 
PARAMETER entryfig 
PRIVATE gc prognum 
gc prognum="013" 


BOFSETO13 
men error > 0 
gn error=0 


RETURN 
ENDIF 
E Before menu code 


ACTIVATE MENU PEXPIRED 
> CLEAR TO 12,66 
Meme liter menu 


RETURN 
E OP PEXPIRED 


EGO EBDURE SETO1JS 
ON EY LABEL Fl DO 1HELP1 


DO DBFO13 && open menu level database 


MEN error = 0 
MWE! color .AND. NOT, SET("ATTRIBUTE") = 
BUD E,RG+/GB,N/N "+; 
SIR(SG)+CHR(S8)+” “W, /N,W/E,RG+/GB,B/W,N/GEB" 
SET COLOR OF NORMAL TO W+/B 
PEISCOULOK OF MESSAGES TO W*ZN 
SPEIMCOLOR “OF TITLES TO W/B 
PETE OLORTOF HIGHLIGHT TO RGtH/GB 
ETE OLOR OF BOX. TOCTRG+/GB 
SET COLOR OF INFORMATION TO B/W 
CETER COTOR OF FIELDS TO N/GB 
ENDIF 


ET BORDER TO 


@ 10,35 TO 12,66 DOUBLE COLOR RG+/GB 
@ 11,36 CLEAR TO 11,65 
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11,36 FILL TO 11,65 COLOR W+/N 
11,36 SAY "SHOTGUN" COLOR W+/N 
11,46 SAY "45CAL" COLOR W+/N 
11,54 SAY "9MM" COLOR W+/N 
11,60 SAY "M14/16" COLOR W+/N 


DAHA ADD 


ENDIF 
RETURN 


PROCEDURE Sb rae. 
CLOSE DATABASES 
*-- Open menu level view/database 
lc message-"O" 
ON ERROR 1c message-LTRIM(STR(ERROR()))*" "*MESSAGENM 
USE MEM INFO 
LE AO DER 
SET -INDEX TOMMER INFO 
ENDIF 
SET ORDER TO LASTNAME 
ON ERROR 
gn error=VAL(le message) 
IF gn_error > O 
DO] Pause VITH; 
"Error opening MEM INFO.DBF or index(es) MEN TEM 
Le te w=2 ie 
RETURN 
ENDIF 
|octmews X 
RELEASE lce message 
RETURN 


PROCEDURE ACTO13 
*—-—Begin PEXPIRED: BAR Menu Actions: 
x=- (before item, action, and alter iten) 


x 


PRIVATE Me new, 1c dbf 


lc news' ’ 

Icvdotz ’ 

DO CASE 

CASE "DAD TD) 
IT NOD el batch 

DO BefAct 

ENDIE 
SET MESSAGE TO 
Po Desc. Report 
SET FILTER TO SHTGN DATE ENTEN 
GOTO TOP 


SET PRINT ON 

REPORT FORM SPEXPIRE PLATN NOE WECH 
SEPP PINT OFF 

SET FILTER TO 

IEC NOT TI batek 


DO AftAct 
ENDIF 
GE “PAD 2" = PAD() 
WWW, NOT. gl batch 
DO BeRAct 
ENDIF 
Sel MESSAGE TO 
m Desc: Report 
MINE TI TER TO F45 DATES=DATE()-365 
GOTO TOP 
SET PRINT ON 
Pooky FORM FPEXPIRE PLAIN .NOEJECT 
SET PRINT OFF 
SEF FILTER TO 
OER NOT. gi batch 
DO AftAct 
ENDIF 
fees PAD 3" = PAD() 
MEN NOT. gl batch 
BO Bef Act 
ENDIF 
EI. MESSAGE TO 
Æ Desc: Report 
MENN FE TETER TO FOMM DATE<=DATE()-365 
GOTO TOP 
FI PRINT ON 
ENEPORT FORM NPEXPIRE PLAIN  NOEJECT 
TFT PRINT OFF 
ee FILTER TO 
ieee NOT. gl batch 
DO AftAct 
ENDIF 
CASE "PAD 4" = PAD() 
DER NOT. gl batch 
DO BefAct 
ENDIF 
SET MESSAGE TO 
Her Desc: Report 
FILTER TO M14 16DATEX<=DATE()-365 
GOTO TOP 
SET PRINT ON 
REPORT FORM MPEXPIRE PLAIN NOEJECT 
or PRINT OFF 
SE FILTER TO 
WE NOT. gl batch 
DO AftAct 
ENDIF 
OTHERWISE 
@ 24,00 
@ 24,21 SAY "This item has no action. Press a key." 
x=INKEY(0) 


@ 24,00 
ENDCASE 
SET MESSAGE TO 
It ge guit n): 


It LEFT Centry <2)! sae 
DEACTIVATE MENU 
ELSE 
DEACTIVATE MENU && PEXPIRED 
ENDIF 
ENDIF 


IF ic_new=’Y’ 
le file="SET"+ge prognum 
Ome file. 

ENDIF 

RETURN 


X X X X X X X X X X X X X X k X X X X X X X X X X X X X X X X X X X X X X X X X X X k X X X X X X X X X X X X X X X X X 


X X X X X X X X X X 


AP rogram. sasaa EARI RES ERG 

x Autbor. 2.20 Sidney Rss hen en 

Mates. Sa O A 

* Notice.......: Written in partial fulfillment of Spee 
* IDA Sa el dl | 

* Generated by.: APGEN version 1.3 

* Description..: ALOOWS USER TO SELECT TO VIEW EXP iia 


QUALS FOR SMALL ARMS 


*- Description.: Menura trons 
LA E A EE AAA AE AAA EE EA EE: 


X X X X X X X X X X 


PROCEDURE EXPIRE 
PARAMETER entryfig 
PRIVATE gc prognum 
gc prognum="014" 


DO SETO14 
IF gn error > H 
gn error=0 


RETURN 
ENDIF 
t=— Before menu code 


ACTIVATE MENUP EXPIRE 
a ORO CLEAR TO 8,78 
k-- After menu 
RETURN 

"e EE 
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PROCEDURE SETO14 
iret) LABEL Fil DO 1HELP1 


DO DBFO14 && open menu level database 


IF gn _ error = O 
me color «SAND. .NOT. SET("ATTRIBUTE") = 
NI BURG+/GB,N/N "+; 
SHR (go )TCHR(38)+" W+/N,W/B,RG+/GB, B/W,N/GB" 
SET COLOR OF NORMAL TO W+/B 
SET COLOR OF MESSAGES TO W+/N 
IE ER OF TITLES TO WB 
SETS COLOR OF HIGHLIGHT TO RG+/GB 
SET COLOR OF BOX TO RG+/GB 
SET COLOR OF INFORMATION TO B/W 
CEI COLOR OF FIELDS TO N/GB 
ENDIF 


SET BORDER TO 

& 6,46 TO 8,78 DOUBLE COLOR RG+/GB 

Q 7,47 CLEAR TO 7,77 

Q 7,47 FILL TO 7,77 COLOR W*/N 

Q 7,47 SAY "SHOTGUN" COLOR W+/N 

Q 7,57 SAY "45CA1" COLOR W+/N 

@ 7,65 SAY "9MM" COLOR W+/N 

@ 7,71 SAY "M14/M16" COLOR W+/N 
ENDIF 
RETURN 


EROCEDURE DBF0O14 
Prose DATABASES 
*-- Open menu level view/database 
lc message-"O" 
OE ERROR lc message-LTRIM(STR(ERROR()))*" "*MESSAGE() 
USE MEM INFO 
ite) <> DBF() 
Piet NDEX TO MEM INFO 
ENDIF 
SIMORDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
men error > 0 
DO Pause WITH ; 
iror opening MEM INFO.DBF or index(es) MEM INFO" 
lc new-2'Y' 
RETURN 
ENDIE 
le new="Y" 
RELEASE lc message 
RETURN 
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PROCEDURE ACTQ14 
*== Begin EXPIRE: BAR Men) Acwilonse 
*-- (before item, action, and after item) 
PRIVATE “Iè nève Net 
lc new=' 
lc dbf=' ” 
DO CASE 
CASE "PAD 1" = PAD() 

IF NOT. gl batch 

DO BefAct 

ENDIF 

SET SCOREBOARD ON 

SET MESSAGE TO 

SET FILTER TO SHTIGN EE 


GOTO TOP 
SET FORMAT TO mem info 
wesc: )biows caer le” 


BROWSE FIELDS 
lastname,initials,rank rate,ssn,shtgn qual,shtgn date LOCK 2 
FREEZE SHTGN DATE NOAPPEND  NODELETE NGEVI4 SE ORT Ad 
Si eer a E RO 
SET FORKAT ITO 
SET SCOREBOARD OBRT 
IF NOT. gl batch 
VORA tT AG 
ENDIF 
CASE “PAD 2% = «PAD 
TE NOT eel batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SETE MES AGE TO 
SET PIETER TO F491 DATES DA TENI 99 


GOTO TOP 
SET FORMAT TO mem info 
eso. Browse file = 


BROWSE FIELDS 
lastname,initials,rank rate,ssn,f45 quaT,f45 date “Non Pwan 
NODELETE NOEDIT FORMAT 

SETE TI ER TO 

STA ON EG 

SET SCOREBOARD OFF 

IF NOT eel bia tem 

DO AftAct 

ENDIF 
CASE "PAD 3" = PAD() 

TE NOT batch 

DO BERACE 

ENDIF 

SET SCOREBOARD ON 
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SET MESSAGE TO 
FELTER TO F9MM DATEC=DATE()-=320 


coro TOP 
SET FORMAT TO mem_info 
MN Desc: Browse file - 


BROWSE FIELDS 
lastname,initials,rank rate,ssn,f9mm qual,f9mm date NOAPPEND 
NODELETE NOEDIT FORMAT 
EBEPRSEILTER TO 
SET FORMAT TO 
pel) SCOREBOARD OFF 
ME. NOT. gl batch 
DO AftAct 
ENDIF 
CASE "PAD 4" = PAD() 
MENS NOT. gl batch 
DO BefAct 
ENDIF 
SET SCOREBOARD ON 
SET MESSAGE TO 
Peer ILIER TO M14 16DATE<=DATE()-320 


GOTO TOP 
SET FORMAT TO mem_info 
> Desc: Browse file - 


BROWSE FIELDS 
Paotname,initials,rank rate,ssn,m14 16qual,ml4 16date 
NOAPPEND NODELETE NOEDIT FORMAT 

Sed FILTER TO 

SEN FORMAT TO 

Sel SCOREBOARD OFF 

fee NOT. gi batch 

DO AftAct 

ENDIF 
OTHERWISE 

a 24,00 

peer, Ol SAY his item has no action. Press a key. 

he I NKEY (0) 

@ 24,00 
ENDCASE 
SEMINNMESSAGE TO 
NEC quitz2'Q' 


BEESLEFT(entryfig,l) = "B" 
DEACTIVATE MENU 
ELSE 
DEACTIVATE MENU Race EXPIRE 
ENDIF 
ENDIF 


Nc new-'Y' 
Me file="SET"+gc prognum 
n»ssic file. 

ENDIF 
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RETURN 


X X X X X X X X X X X Xx X X X X X X X X Xx X X X X X X Xx X X X k X X X x X X k Xx X X X X X X X X X X X X X X X X X X X X 


X X X X X X X Xx X X 


E Program...  TEXPIRKRED ERO 

* Author.«...2..: sidney Ri Settler ve, 

* "Dae... GN 

* Notice.......: Written in partial fulfillment ot PEN 
x dBASE Ver. FN 

* Generated by.: APGEN version 1.3 

x 


Description..: PROVIDE USER WITH OPTION TO VIEW PERSONS 
WITH EXPIRED SA QUALS 


“ Description..: Menu actions 


X X X X X X X X X X X X X k X X k X X X X k X X X X X X k X X X k k X k X X X X X X X X k k X Xx X kx X X X X X X X X k X 


X X X X X X k k X X 


PROCEDURE PIRED 
PARAMETER entryilg 
PRIVATE gc prognum 
gc prognum="015" 


DOFSETOTS 
IF aen error mio 
gn error=0 


RETURN 
ENDIF 
*—— Before menu code 


ACTIVATE MENU EXPIRED 
A.7,46 CIPESIIMEPOLS S 78 
Tree Eeer 


RETURN 
* == OP wwe TIRED 


PROCEDURE SEDROT5 
ONBIGEY TAB OTi DONE LP) 


DO DBFO15 44 open menu level database 


IF gn error = o 
IF gi color AND. «NOT. SETTA DERI EOM — 

Vri BERG DN NE. 
CER(3SS)+CHR(38)+4" VIN, W/ BERGH GP N GB 
SET COLOR OF NORMAL TO WI/B 
SET COLOR OF MESSAGES TOMH NN 
SET COLOR OF TITLESTTO TW B 
SET=GGEOR OF HIGHLIGHT TORG GB 
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SET COLOR OF BOX TO RG+/GB 

SET COLOR OF INFORMATION TO B/W 

DIE COLOR “OE-FTELDS TO N,/GE 
ENDIF 


SET BORDER TO 

@ 7,46 TO 9,78 DOUBLE COLOR RG+/GB 
ame, 47 CLEAR TO 8,77 

@ 8,47 FILL TO 8,77 COLOR W+/N 

@ 8,47 SAY "SHOTGUN" COLOR W+/N 

@ 8,57 SAY "45 CAL" COLOR W+/N 
8,66 SAY "9MM" COLOR W+/N 

8,72 SAY "M14/16" COLOR W+/N 


DD 


ENDIF 
RETURN 


EESUEDURE DBFO15 
CLOSE DATABASES 
*-- Open menu level view/database 
le message="0" 
ON ERROR lc message=LTRIM(STR(ERROR()))+" "+MESSAGE() 
W ESMEM INFO 
EN C «5» DBF() 
set INDEX TO MEM INFO 
ENDIF 
Seo RDER TO LASTNAME 
ON ERROR 
gn error=VAL(lc message) 
PE EN error > 0 
DO Pause WITH ; 
gener opening MEM INFO.DBF or index(es) MEM INFO" 
lc new='y' 
RETURN 
ENDIF 
lc new='y' 
RELEASE lc message 
RETURN 


PROCEDURE ACTO15 
begin EXPIRED: BAR Menu Actions. 
E s before item, action, and after item) 
x 
MIN Le new, lc dbif 
le new=' ? 
MEM DI=”' ' 
DO CASE 
Ose “PAD 1" = PAD() 

W NOT. gl batch 

DO BefAct 
ENDIF 
SET SCOREBOARD ON 
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SET MESSAGE TO 
SET FILTER TO SHTGN DATE C=M ANE LED 


GOTOTTOFR 
SET FORMAT TO mem_info 
=> Desc; Browse file s 


BROWSE FIELDS 
lastname,initials,rank rate,ssn,shtgn qual,shtgn date 
NOAPPEND NODELETE NOEDIT FORMAT 

SET FILTER TO 

SET FORMAT TO 

SET SCOREBOARD OFF 

IF .NOT. gl batch 

DO.ATTACT 

ENDE 
CASE "PAD 2% =7PAD() 

IF .NOT. gl batch 

DO BefAct 

ENDIF 

SET SCOREBOARD ON 

SET MESSAGE 10 

SET ETETER TO. FAS DATE =BA NE On 


GOTO TOP 
SET FORMAT TO mem_info 
^-- Desc: Browse file - 


BROWSE PIELDS 
lastname,initials,rank rate,ssn,f45 qual,f45 date LOCK 2 
NOAPBEND NODEDLEUCEOGNOEDIT FORMAT 

Se Pre eek el © 

SET FORMAT TO 

SETASCOREBOARDB OKE 

LE eNO ee bace 

DO AftAct 

ENDIF 
CASEN TEAD OC TEERPAD) 

LE NOI gl batch 

DO BefAct 

Ener 

SET SCOREBOARD ON 

SET MESSAGE TO 

SET FIBER TO FONN NEE 


GOTO OP 
SET FORMAT TO mem_info 
ASS NCSC... Brows eer. ems 


BROWSE FIELDS 
lastname,initials,rank rate,ssn,f9mm qual,f9mm date LOCK 2 
NOAPPEND NODELETE NOEDIT FORMAT 

SETFIT ETER TO 

SET IFORMAT TO 

SET SCOREBOARD OFE 

IF NOT See 

DO AftAct 
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ENDIF 
ESSE "PAD 4" - PAD() 
NOT. gl batch 
Dor Bef Act 
ENDIF 
Ser SCOREBOARD ON 
SET MESSAGE TO 
EI FILTER TO M14 16DATES=DATE()-365 


COTO TOP 
SET FORMAT TO mem info 
= Desc: Browse file - 


BROWSE FIELDS 
lxsUmame,;initials,rank rate,ssn,mi4 16qual,ml4 i6date LOCK 2 
NOAPPEND NODELETE NOEDIT FORMAT 

See erILTER TO 

SET FORMAT TO 

met SCOREBOARD OFF 

BERNOT. gl batch 

DO AftAct 

ENDIF 
OTHERWISE 

@ 24,00 

A 21 SAY "This item has no action. Press a key." 

X=INKEY(O) 

@ 24,00 
ENDCASE 
BEPSMESSAGE TO 
MEE quit="*Q? 


MENI EFE T(entryilg,i) - "B^ 
DEACTIVATE MENU 
ELSE 
DEACTIVATE MENU && EXPIRED 
ENDIF 
ENDIF 


meee new=’ Y)’ 
Men [Tile="SET"+gc prognum 
PO &lc file. 

ENDIF 

RETURN 
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